почему не добавляет с новой строки? макрос в Exel

Sub sa()

Range("H2:Q2").Select

Selection.Copy

Sheets("a1").Select

ns = Application.CountA(Sheets("b1").Range("A:A"))

d = "a" & CStr(ns + 1)

Range(d).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("b1").Select

Application.CutCopyMode = False

MsgBox "Copy End"

End Sub