Copy paste loop through columns

[Eags123]

I am a VBA beginner and I have copied and modified some existing code to suit my purposes, but I'm doing something simple wrong.

What I am trying to achieve is the following: - Loop through Row 1, from Column A to Column Z - If cell of row 1 is greater than 0, Copy Row 1 cell, and paste it in Row 2.

Below is the code I'm using.

Sub CopyData()

Dim LastRow As Long, ws As Worksheet

Set ws = Sheets("Sheet3")

For x = A To Z
If ws.Range(x & "1").Value <> 0 Then
ws.Range(x & "1").Copy
ws.Range(x & "2").PasteSpecial xlPasteValues
End If
Next x

End Sub

 

[footoo]

Sub CopyData()
Dim LastRow As Long, ws As Worksheet, x%
Set ws = Sheets("Sheet1")
For x = 1 To 26
    If ws.Cells(1, x) <> 0 Then _
        ws.Cells(2, x) = ws.Cells(1, x).Value
Next x
End Sub

 

[Eags123]

Perfect.

Thanks for your assistance, Footoo.