Extract Data

[howard]

I have data in Col A to Z on Sheet 3 and values in Col O


I would a macro to extract data from Col A:Z from row2 onwards the values in Col O add up to approximately 1,000,000 and paste these on Sheet4 from row2 onwards



Your assistance in this regard is most appreciated

 

[ravishankar]

TRY these codes

Sub howard()
Dim x As Integer, a As Integer, b As Integer
x = Cells(Rows.Count, 1).End(xlUp).Row
b = 0
For a = 2 To x
b = b + Cells(a, "O")
If b >= "1000000" Then
Sheets("sheet1").Range("A2:Z" & a).Copy
Sheets("sheet4").Range("A2").PasteSpecial
End If
Next a
MsgBox "complete"
end sub

ravi shankar

 

[howard]

Thanks for the help, much appreciated