So I have the following code....
Sub CalibrationCopy()
'CalibrationCopy imports the calibration data that is relavent to the current setup.
' Call in Variables
Dim CalibSh As Worksheet
Dim i As Long
Dim LastRow As Long
Dim CalibDate As Long
'Import Data...