Sub MyDualCopy()
'Macro To Format All Sheets Within The Report'
'DAILY SALES REPORT INBOUND TAB'
Sheets("Daily Sales Report Inbound").Select
Dim lngMySecondDataRow As Long
Rows("17:17").Select
Selection.Copy
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Cells(17, 2) = Cells(18, 2) + 1
Application.Goto Reference:="MySecondData"
Rows(ActiveCell.Row).Select
lngMySecondDataRow = ActiveCell.Row
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Cells(lngMySecondDataRow, "B") = Cells(18, 2) + 1
Range("A1").Select
'DAILY SALES REPORT GE'
Sheets("Daily Sales Report GE").Select
Dim lngGEdataRow As Long
Rows("17:17").Select
Selection.Copy
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Cells(17, 2) = Cells(18, 2) + 1
Application.Goto Reference:="GEdata"
Rows(ActiveCell.Row).Select
lngGEdataRow = ActiveCell.Row
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Cells(lngGEdataRow, "B") = Cells(18, 2) + 1
Range("A1").Select
'DAILY SALES REPORT OBTM'
Sheets("Daily Sales Report OBTM").Select
Dim lngOBTMdataRow As Long
Rows("17:17").Select
Selection.Copy
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Cells(17, 2) = Cells(18, 2) + 1
Application.Goto Reference:="OBTMdata"
Rows(ActiveCell.Row).Select
lngOBTMdataRow = ActiveCell.Row
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Cells(lngOBTMdataRow, "B") = Cells(18, 2) + 1
Range("A1").Select
'DAILY SALES REPORT INTERNET'
Sheets("Daily Sales Report Internet").Select
Dim lngcopyandpastemeRow As Long
Rows("17:17").Select
Selection.Copy
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Cells(17, 2) = Cells(18, 2) + 1
Application.Goto Reference:="Copyandpasteme"
Rows(ActiveCell.Row).Select
lngcopyandpastemeRow = ActiveCell.Row
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Cells(lngcopyandpastemeRow, "B") = Cells(18, 2) + 1
Range("A1").Select
'CALL REPORT INBOUND'
Sheets("Call Report Inbound").Select
Rows("17:17").Select
Selection.Copy
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Cells(17, 2) = Cells(18, 2) + 1
Range("A1").Select
'CALL REPORT INTERNET'
Sheets("Call Report Internet").Select
Rows("17:17").Select
Selection.Copy
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(17, 2) = Cells(18, 2) + 1
Range("A1").Select
'TOTAL ACTIVITY'
Sheets("Total ASDA Activity").Select
Rows("17:17").Select
Selection.Copy
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Range("R17:Am17").Select
Selection.Copy
Range("R18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B17").Select
Selection.Copy
Range("B18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(17, 2) = Cells(18, 2) + 1
Range("A1").Select
'DAILY SALES REPORT Repeat'
Sheets("Daily Sales Report Repeat").Select
Dim lngRepeatdataRow As Long
Rows("17:17").Select
Selection.Copy
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Cells(17, 2) = Cells(18, 2) + 1
Application.Goto Reference:="Repeatdata"
Rows(ActiveCell.Row).Select
lngRepeatdataRow = ActiveCell.Row
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Cells(lngRepeatdataRow, "B") = Cells(18, 2) + 1
Range("A1").Select
Sheets("Front Sheet").Select
Range("A1").Select
End Sub