Give this one a go...

Mark Ivey

Sub createSummary()
Dim i As Long
Dim j As Long
Dim k As Long

Sheets(1).Select

LastRow = Sheets(1).Range("A65536").End(xlUp).Row

LastCol = Sheets(1).Range("IV1").End(xlToLeft).Column

k = 1

For i = 1 To LastRow
For j = 2 To LastCol
If Cells(i, j).Value 0 Then
Sheets(2).Cells(k, 1).Value = Sheets(1).Cells(i, 1).Value
Sheets(2).Cells(k, 2).Value = Sheets(1).Cells(i, j).Value
k = k + 1
End If
Next
Next

End Sub








"AK" wrote in message
...
Hallo,
I am not a VBA/Excel programmer, so I would like your help.
The below is what I have. Three columns of Excel in Sheet1.
A B C
---------------------------------------------------
John $30 $0
Smith $20 $10

What I want to do is the following in Sheet2.
A B
--------------------------------
John $30
Smith $20
Smith $10

How would I do it? I'd like your help.

Thanks in advance.

Kumar