Hi Folks,
I've got this code...
Option Explicit
Sub TransferToMain()
Dim sourceWB As Workbook, destWB As Workbook
Dim fName As String, strName As String
Dim weDate As Date
Dim iWeekDay As Integer
Dim LastRow As Long
'Set Source & Copy Sheet To Production File...