[Tasos]

Καλημέρα σε όλους!
Γιώργο. δες ακόμα έναν τρόπο αντιγραφής της τελευταίας γραμμής με δεδομένα στην πρώτη κενή γραμμή της περιοχής "Table" του αρχείου σου:

Καλή συνέχεια!

Φιλικά / Τάσος

Sub CopyLastRow()

    Dim FirstFreeLine As Range, LastLine As Range

    With Range("Table")

        If Trim(.Cells(1)) <> vbNullString Then

            Set FirstFreeLine = .Cells(1).Offset(-1).End(xlDown).Offset(1).Resize(1, .Columns.Count)

        Else

            Set FirstFreeLine = .Cells(1).Resize(1, .Columns.Count)

        End If

        Set LastLine = .Offset(.Rows.Count + 1).End(xlUp).Resize(1, .Columns.Count)

        If FirstFreeLine.Row < LastLine.Row Then FirstFreeLine.Value = LastLine.Value

        'LastLine.ClearContents ' Διαγραφει την τελευταία γραμμή

        FirstFreeLine.Resize(1, 1).Offset(, .Columns.Count - 1).Select

        'SendKeys "{F2}" ' φέρνει το κελί σε κατάσταση επεξεργασίας

    End With

End Sub