VBA explanation

Sub test()

Dim l As Long
Dim lRow As Long

lRow = Cells(Rows.Count, "A").End(xlUp).Row

For l = 1 To lRow
    If Range("A" & l).Value = "" Then
        Range("A" & l).PasteSpecial
        Exit Sub
    End If
Next l
End Sub