[Paj90909]

Hi. I am trying to run a macro to copy items on 1 sheet and have it paste them on the 2nd and 3rd sheet. I am trying but can't quite seem to get the excel code to do what I want. I can't post a copy of it because I accidentally deleted it.

Can anyone help me?

[Rollin_Again]

We can't provide you help unless you provide a detailed explation of what the macro is supposed to do. Please be detailed including what cells/rows should be copied and where they will be copied to. Please try to post an example if possible.

Regards,
Rollin

[Paj90909]

So from columns A2 down to around A 100 I am trying to take all the codes I have gathered in that information box and paste all of that into the second sheet in the exact same spot in the exact same way. For example a code I want to paste could be PIE-K01, I just want to be able to run the macro and have all these codes in the same spot on the second sheet. Or I just want to know the codes I need to run to do a simple copy paste in 1 box even.

Paul.

[Rollin_Again]

Why can't you just use the macro recorder to create your macro? Post some sample code from the macro recorder and we'll show you how to alter it for your own needs.

Regards,
Rollin

[Paj90909]

Sorry about that I finally found it out. But I would like to know how to increase the copy range like A1 : A174 instead of just 99 without having to remaking a macro. Here is my code:


'

'
Range("A2:A100").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
ActiveSheet.Paste
Range("C4").Select
End Sub



Thanks, Paul

[Rollin_Again]

Are you trying to copy everything in column A or just a certain range? The macro can be modified to determine the last cell in column A that contains data and use that as the end of the range. Will that work for you?

Regards,
Rollin

[Paj90909]

Ya that would rock. Can you tell me how?

[Rollin_Again]

Use this code instead.

Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
ActiveSheet.Paste
Range("C4").Select
End Sub

Regards,
Rollin