[gr8styl]

Φίλε Γιώργο,
δεν είμαι σίγουρος σίγουρος για το ζητούμενο
Ο παρακάτω κώδικας εντοπίζει με βάσει την στήλη Β (B1:B18) την τελευταία γραμμή (LastRow) στον πίνακα B:L και την αντιγράφει στην επόμενη γραμμή που είναι κενή.
Δηλαδή για το παράδειγμα που μας έδωσες αντιγράφει το B3:L3 στο B4:L4 και τελειώνει με ενεργό το κελί M4.

Sub CopyLastRow()
Dim LastRow As Double
    LastRow = WorksheetFunction.CountA(Range("B1:B18"))
    Range("B" & LastRow & ":L" & LastRow).Copy Destination:= _
    Range("B" & LastRow + 1 & ":L" & LastRow + 1)
    Range("M" & LastRow + 1).Select
End Sub

Διευκρίνισε μας παραπέρα αν δεν ήταν αυτό το ζητούμενο.
Θανάσης