VBa to automate macro formatting

[webisti]

Hi I am using a macro to copy paste :

Range("A160:C161").Select
Application.CutCopyMode = False
Selection.Copy
Range("A73").Select
ActiveSheet.Paste
Range("A76").Select
ActiveSheet.Paste
Range("A79").Select
ActiveSheet.Paste
Range("A82").Select
ActiveSheet.Paste
Range("A85").Select
ActiveSheet.Paste
Range("A88").Select
ActiveSheet.Paste
Range("A91").Select
ActiveSheet.Paste
Range("A94").Select
ActiveSheet.Paste
Range("A97").Select
ActiveSheet.Paste
Range("A100").Select
ActiveSheet.Paste
Range("A103").Select
ActiveSheet.Paste
Range("A106").Select
ActiveSheet.Paste
Range("A109").Select
ActiveSheet.Paste
Range("A112").Select
ActiveSheet.Paste
Range("A115").Select
ActiveSheet.Paste

Can this be automated so that I do not need to change or write the range all the time.
I have a sheet with 3000 records and it is quite time consuming going every 100 records to change the range.

Any ideas?

Thanks

Webisti

[Speshul]

If they are always increasing in multiples of three rows, or always increasing by a set number of rows (A1, A3, A5, A7 one day, A4, A8, A12, A16 another) then you could set an offset and loop it for however many times you need

untested pseudocode but this is the idea

Please Login or Register  to view this content.

note: if it is not 3 rows skipped every time you would do something like this:

Please Login or Register  to view this content.

I would also set a variable for what cell you are looking to start in. you could do that with an offset of a particular cell and use a formula to give the offset, then use that formulas value as the offset

Or something