Paste special formatting issues

[Macro_]

Hi all,
I have a macro which copies data from one sheet (including tables, figures etc) and paste specials - values and formatting only - to another worksheet. The only issue is that cells which are highlighted in the first workbook are not getting copied to the exactly relevant cells in the new workbook but to one cell below.. I've tried two different codes with the same result. The codes I have used are listed below. Any ideas? Thanks any advance for any help..
ActiveCell.Offset(1, 0).Range("A1:S84").Copy
ActiveCell.Offset(1, 0).Range("A1:S84").PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1:S84").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

AND

ActiveCell.Offset(1, 0).Range("A1:S84").Copy
ActiveCell.Offset(1, 0).Range("A1:S84").PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(1, 0).Range("A1:S84").PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False

 

[Michael M]

Try

Sub MM1()
Dim wb1 As Workbook, wb2 As Workbook
'Now, copoy what you want from wb1:
wb1.Sheets("name of copying sheet").Range("A1:S84").Copy
'Now, paste to WB2 worksheet:
wb2.Sheets("name of sheet to be pasted to").Range("A1").PasteSpecial Paste:=xlPasteValues
wb2.Sheets("name of sheet to be pasted to").Range("A1").PasteSpecial Paste:=xlPasteFormats
End Sub

 

[Macro_]

Great! It works thanks heaps! Now when I want to repeat this process fro another data set what do I post? As when I write dim a message comes up saying I cant duplicate the workbook?

 

[Macro_]

Got it to work! Thank you for all your help! Really appreciate it.