Macro der flytter/kopiere et tal til en anden kolonne

Public Sub CopyVerySpecial()
    Dim rCell As Range
   
    For Each rCell In ActiveSheet.Range("K1:K65536").Cells
        If rCell.Value = "" Then
            rCell.Value = ActiveSheet.Range("A1").Value
            Exit For
        End If
    Next rCell
   
    Set rCell = Nothing
End Sub

Tak for hjælpen