It sounds like you moved the code correctly.
Declare (dim) Rw As String, OR, delete Cstr from Rw =CStr(...)
Make sure I spelled all the sheet names correctly.
Change
DailyDate = Daily.Range("C5")
to
DailyDate = Daily.Range("C5").Text
Use the Menu:=Debug >> Compile VBA Project to find many errors.
With the cursor inside the Sub, Press F8 to step thru the code. You can look at the Worksheets while pressing F8. This will find 99.999% of all other errors, if any.
But the proof is still in the pudding. Until you have used the code for quite a while, it is possible to come across a worksheet that is so unusual that it fails.
One final trick:
Dim X
With Summary
.Range("AQ" & Rw & ":AW" & Rw) = Daily.Range("R70:X70")
X = Daily.Range("R70:X70")
.Range("N" & Rw) = Daily.Range("E76")
X = Daily.Range("E76")
.Range("T" & Rw) = Daily.Range("F76")
X = Daily.Range("F76"")
.Range("AF" & Rw) = Daily.Range("L76")
X = Daily.Range("L76")
.Range("AM" & Rw) = Daily.Range("Q76")
X = Daily.Range("Q76")
End With
End If
When you are stepping thru the code with F8, you will see the lines of code Highlight yellow. That highlighted line is the next line to execute when you press F8.
Step down to the "With Summary" line. Hover the mouse over one of the X'es. When an X line loses it's highlighting, A Tool Tip will appear under the mouse giving the value of the Range on that line of code. If the line is working.