I'm using this code to copy information from sheet one to my vendor sheet.

Private Sub CommandButton1_Click()
Sheets("ERW").Range("A3:X50000").ClearContents
For Each c In Worksheets("Sheet1").Range("F:F")
If (c) = "ERW" Then
x = Sheets("ERW").Cells(Rows.Count, "a") _
..End(xlUp).Offset(1, 1).Row
c.EntireRow.Copy Sheets("ERW").Cells(x, "a")
End If
Next
End Sub

currently it copies into 'A2' (I have labels in 'A1'). How do I make it
copy starting at 'A3' instead?

Thanks!

RJH