I have the following code as part of a larger process. I'm trying to specify the cell where a range of data is to be pasted (CompleteSheetDestRange) and also check/confirm that the rest of the row is blank, however it doesn't seem to work.
Any help appreciated
Dim CompleteSheetLastCellOfFirstColumn As Range Dim CompleteSheetDestRange As Range 'FIND LAST CELL WITHIN FIRST COLUMN OF COMPLETE SHEET Set CompleteSheetLastCellOfFirstColumn = Sheets("Complete").Range("B" & Rows.Count).End(xlUp) 'SET COMPLETE SHEET DESTINATION POINT Set CompleteSheetDestRange = CompleteSheetLastCellOfFirstColumn.Offset(1, 0) 'VALIDITY CHECK - CHECK DESTINATION RANGE START ROW IS BLANK If Not CompleteSheetDestRange.row Is Nothing Then MsgBox "Complete Sheet Destination Row is not blank, Unable to Transfer Data", 0, "Validity Check Error" Application.Calculation = xlCalculationAutomatic Exit Sub End If