Pasting start on the wrong ROW

[Exceleny]

Hi all,

I need your help please.

The below is part of a code, and it basically copies and pastes the contents of all the sheets to ONE sheet.

The problem is the pasting starts on B3, when in fact I was hoping that the pasting starts on B4 and so on.
Can you please help me?

Thank you so much!
Leny

  For i = 4 To 300
            If ws.Range("B" & i) <> "" Then
                ws.Range("B" & i).Resize(, 22).Copy
                Sheets("Sum").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
            End If
        Next i
    End If
Next ws
End Sub

</pre>

 

[Misca]

Try something like:

        For i = 4 To 300
            If ws.Range("B" & i) <> "" Then
                ws.Range("B" & i).Resize(, 22).Copy
                
                If Sheets("Sum").Range("B3").Value = "" Then
                    Sheets("Sum").Range("B3").PasteSpecial Paste:=xlPasteValues
                Else
                    Sheets("Sum").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
                End If
            End If
        Next i