so with the blanks (empty rows) conundrum solved, moving on to the next area
so, here is the working copy of the vba code from post 67
Sub copyto_test_REMOVEBLANKS_b18() 'working (by Shina67)
Dim sourceWS As Worksheet
Dim destinationWS As Worksheet
Dim sourceRange As Range
Dim...