Range(
"P171"
).
Select
Selection.ListObject.ListRows.Add AlwaysInsert:=
False
Range(
"A172"
).
Select
Sheets(
"Dashboard"
).
Select
Range(
"E1:F1"
).
Select
Selection.Copy
Sheets(
"Historical Data"
).
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=
False
, Transpose:=
False
Sheets(
"Dashboard"
).
Select
Range(
"D31:O31"
).
Select
Application.CutCopyMode =
False
Selection.Copy
Sheets(
"Historical Data"
).
Select
Range(
"B172"
).
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=
False
, Transpose:=
False
Range(
"N171:P171"
).
Select
Application.CutCopyMode =
False
Selection.AutoFill Destination:=Range(
"N171:P172"
), Type:=xlFillDefault
Range(
"N171:P172"
).
Select
End
Sub