How to copy active sheet to another sheet in same workbook

[fvisions]

I have attempted a couple of variations of the code to take the full worksheet tab named "OriginalReport" and copy paste special values to a second tab labeled "Report_" but keep get various errors. I am be probably overthinking this what is your advice. I am making a command button with assigned macro for the end user.

Sub OutageTrackerButton3()
'
' OutageTrackerButton3 Macro

 Dim OriginalReport As Worksheet
'Set wsOriginalReport = Sheets("Original Report")
'Set wsReport = Sheets("Report")
Set OriginalReport = ActiveWorkbook.ActiveSheet

'With wsOriginalReport
' Cells.Select
ActiveSheet.SelectedSheets.Copy
'Selection.Copy

Dim Report_ As Worksheet
Set Report_ = ActiveWorkbook.ActiveSheet

'Dim wsReport As Worksheet
'With wsReport
'Sheets("Report").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A2").Select
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
' End With
'End With
End Sub

 

[ManiacB]

try

Option Explicit

Sub OutageTrackerButton4()
Dim orr, re As Worksheet

Set orr = Sheets("OriginalReport")
Set re = Sheets("Report_")

orr.Cells.Copy
re.Cells(1, 1).PasteSpecial Paste:=xlPasteAll

End Sub

 

[fvisions]

Getting subscript out of range error, debug highlights this code line? What does orr and re mean or stand for?

Set orr = Sheets("OriginalReport")

 

[ManiacB]

It's a value to designate the sheet..... Are you running the code from within the same workbook with the data? If not, then precede those designations with "activeworkbook"