then i would do this...

sub macro1()
dim irow as integer
irow = Range("N22").end(xlup).row

range("A2:N" & irow).select
Selection.copy
range("A46").select
Selection.pastespecial paste:=xlpasteall, operation:=xlnone, Skipblanks:= _
False, Transpose:=False
end sub