backup you workbook before trying this macro

This will copy cells with payment values in column e


Sub macro()
Dim i, c, c1 As Variant
i = 0
c = 2
c1 = 1
While i = 0
If (Range("a" & c).Value = "") Then
i = 1
Else
If Range("b" & c).Value = "" Then
Else
If (c1 = 1) Then
Range("a1:b1").Select
Selection.Copy
Range("e" & c1).Select
ActiveSheet.Paste
c1 = c1 + 1
End If
Range("a" & c & ":" & "b" & c).Select
Selection.Copy
Range("e" & c1).Select
ActiveSheet.Paste

c1 = c1 + 1
End If
End If
c = c + 1
Wend
End Sub


--
anilsolipuram
------------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...o&userid=16271
View this thread: http://www.excelforum.com/showthread...hreadid=381844