Simple Copy and Paste Macro but can't get it right- Help!

[antonchann]

Dear All,

I know that there are countless examples of copy and paste macros and I have indeed gone through them and tried to figure it out on my own, but cant seem to get it right, and my deadline for this is looming. Would greatly appreciate your help!

Basically, i want to copy Range("A1:AQ39") from Sheets("Schedule"), to Sheets("Schedule Database")
- Schedule (A)


Next, I then need to edit information from Range(A1:AQ39) again and paste again on Sheets("Schedule Database")
- Schedule (B) but not replacing the information (Schedule A) that was copied before.

So far, what i have is:

Sub Test()
'
' test Macro
'


ActiveCell.Range("A1:AQ39").Select.Cut Sheets("Schedule Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False



End Sub


Thanks in advance!!

 

[Michael M]

don't have Excel at the moment, try

Sub Test()
Sheets("Schedule").Range("A1:AQ39").Copy
Sheets("Schedule Database").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

 

[My Aswer Is This]

I don't understand what "Schedule A" means:
Your quote:
to Sheets("Schedule Database")
- Schedule (A)

 

[antonchann]

Thanks Michael! It works! have a blessed day ahead !

 

[antonchann]

It was meant to denote like schedule A, B and so on which i needed to record. But anyway, its been solved based on Michael's code. Thanks anyway! appreciate it!