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.
VBA Code:
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