For-next eller anden løkke der virker

Jeg har et regneark hvor jeg skal have udført en kopiering op til 25 gange.
Jeg har skrevet følgende kode, men problemet er, at kommandoen kun udføres én gang, d.v.s. Next sætningen udføres ikke.

Dim iTæller As Integer

For iTæller = 1 To 25
    Range(\"A1\").Select
    If Range(\"A1\").Value <= 0 Then
        Range(\"B1\").Select
            Selection.Copy
            Range(\"H1\").Select
            ActiveSheet.Paste
    Else
        Range(\"A1\").Select
        Selection.Copy
        Range(\"H1\").Select
        ActiveSheet.Paste
    End If
     
    Next

Hvor er fejlen?