Dynamic autofill VBA

Hi
try this macro

this assumes that only cells K1 and K2 are populated in column K - there is no need to delete old values
is this correct?

Sub Macro1()
Dim Coln As Long, Lastrow As Long

'establish the last populated cell in columns A:K
Lastrow = 2
For Coln = 1 To 11
    If ActiveSheet.Cells(Rows.Count, Coln).End(xlUp).Row > Lastrow Then Lastrow = ActiveSheet.Cells(Rows.Count, Coln).End(xlUp).Row
Next Coln

'Populate into column k
Range("K2").Copy Destination:=Range("K3", Columns("K").Rows(Lastrow).Address)

End Sub