Çözüldü Sıralama makrosunda Run time error 1004 hatası

Merhaba aşağıdaki kodu çalıştırdığımda Run time error 1004 hatası alıyorum. Koda sıralama nasıl ekleyebilirim.

Sub Kayit ()
Set sf1 = Sheets("G01")
ad = sf1.Range("V3").Text
Set sf2 = Sheets(ad)

Son = sf2.Cells(Rows.Count, 1).End(3).Row + 1

sf2.Range("A" & Son) = sf1.Range("L3")
sf2.Range("B" & Son) = sf1.Range("L4")
sf2.Range("C" & Son) = sf1.Range("L6")
sf2.Range("D" & Son) = sf1.Range("A1")
sf2.Range("E" & Son) = sf1.Range("L7")
sf2.Range("F" & Son) = sf1.Range("L8")
sf2.Range("G" & Son) = sf1.Range("Z9")
sf2.Range("H" & Son) = sf1.Range("Z5")
sf2.Range("I" & Son) = sf1.Range("L5")
sf2.Range("J" & Son) = sf1.Range("L10")
sf2.Range("K" & Son) = sf1.Range("L11")
sf2.[B2:K1001].Sort Key1:=[B2]
Range("A2").Select
End Sub