VBA Question about using For Each loop

Hey!

So I have a big sheet that I'm working on that is using this code to pull items over from one sheet to the next which works great until I change some values in it and I'm not sure why.

    
    Set Source = ActiveWorkbook.Worksheets("CSV")
    Set Target = ActiveWorkbook.Worksheets("CSV2")

    j = 1
    For Each c In Source.Range("C1:C1000")
        If c >= 1 Then
           Source.Range("A" & c.Row & ":C" & c.Row).Copy
           Target.Rows(j).PasteSpecial xlPasteValues
        
           j = j + 1
        End If
    Next c

So when I change it to source.range to A:D instead of A:C, it will paste repetitively for thousands of more columns past A:D. So E:H will have the data too, etc for thousands of rows. Just wondering what I'm doing wrong there!

Thanks!!!


[/CODE]