Kopierer i den forkerte række

Er der én af jer, der gider at kaste et blik på dette?
Meningen er, at jeg skal kopiere cellen fra a1 til b1
og hvis b1 ikke er tom, så skal indholdet i stedet for i b2 eller den næste ledige celle i kolonne b.
Når b1 er tom, kopieres der rigtigt, men når b1 er
brugt, kopieres til a2 og ikke til b2.
Hvad gør jeg forkert?

Private Sub CommandButton1_Click()

Range(\"a1\").Select
Selection.Copy
  If Range(\"b1\").Value = \"\" Then
    Range(\"b1\").Select
    ActiveSheet.Paste
  Else
    Range(\"b1\").CurrentRegion.Select
  ActiveCell.Offset(Selection.Rows.Count, 0).Activate
  End If
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub