The below macro works fine the first time (Then portion of the IF statement) but when it runs into a situation where Else needs to be used I get an error.
When I do the process manually I get "The information cannot be pasted because the Copy area and the paste area are not the same size and shape" error, how do I avoid this when I run the macro?

Dim range1 As Range
Dim range2 As Range

Set range2 = Sheets("A").Range("A1")
Set range1 = Sheets("B").Range("A1")

Sheets("A").Activate
range2.Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

If IsEmpty(range1) Then
Cells.Select
range1.PasteSpecial Paste:=xlPasteValues
Else

range1.End(xlDown).Offset(2, 0).PasteSpecial Paste:=xlPasteValues
End If


Thanks a lot!