Hi All,

Im still new in Excel VBA. Need your guys help on my VBA.

Below is my VBA


Sub SUMMARY()

Rows("50:574").Select
Selection.EntireRow.Hidden = False

With Range("A64:AU64")
.AutoFilter
.AutoFilter Field:=36, Criteria1:="<>0"

ActiveSheet.AutoFilter.Range.Copy

Sheets("SUMMARY").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False

End With

Range("A1").Select
End Sub

I managed to create VBA to copy filtered data to Summary sheet. But, what i need is for every 10 data, the paste destination will be different.

Ex:
1) For 1st 10 data : Paste destination in Sheet Summary in cell A4
2) For the next 10 data : Paste destination in Sheet Summary in cell A20
3) For the next 10 data until last row of data : Paste destination in Sheet Summary in cell A50

Hope you guys can help me out.