Copy data between sheets

[SamT]

I noticed. It is good that you are reviewing the code, since you are the one who will have to maintain it. I hope I a, writing it so that it is self documenting.

I am currently pondering the necessary tests, error checks and edge conditions this code might run into in production.

This is the list of Module level Declarations I have so far. I present it for your review and error checking

Option Explicit
Option Base 1

'All these Declarations are used throughout the code
'   They are declared here for ease of code maintainence.
'   IOW, you don't have to search the code to change them.

'Array Constants
    Const mrProjectCol As Long = 1
    Const mrEndPeriodCol As Long = 2
    Const mrLCcol As Long = 3
    
    Const empPmpNum As Long = 1
    Const empLastNameCol As Long = 2
    Const empFirstNameCol As Long = 3
    Const empHoursCol As Long = 4
    Const empRateCol As Long = 5
    
    Const prProjectCol As Long = 1
    Const prEndPeriodCol As Long = 2
    Const prLCcol As Long = 3

'Project sheet Descriptors
'   Many of these are not used at this time
'   They are included here for future use
    Const psWeeklyDateRow As Long = 21
    Const psEmpDataHeaderRow As Long = 21
    Const psEmpNumCol As Long = 1
    Const psEmpLCCol As Long = 2
    Const psEmpLastNameCol As Long = 3
    Const psEmpFirstNameCol As Long = 4
  Const psEmpEXPCol As Long = 10
'    Const psEmpBALCol As Long = 5
'    Const psEmpAUTHCol As Long = 6
'    Const psEmpEXP2Col As Long = 7 'there are two EXP columns on each Project Sheet
'    Const psEmpESTCol As Long = 8
'    Const psEmpRATECol As Long = 9
    
    Dim psEmpRow As Long
    Dim DataDateCol As Long
    
    
'These Arrays use the above declared Array Constants
    Dim MR_Array As Variant
    Dim Emp_Array As Variant
    Dim PR_Array As Variant
    Dim mrIndex As Long
    'EmpArray uses mrIndex
    Dim prIndex As Long
    
'A Temporary array used to check the spelling of the names in MR and PR
    Dim ProjectNames() As String

'Used to temporarily hold data so it can be added to various Arrays
    Dim TempSht As Worksheet