JB, re:

Dim i, LastRow, LastNum As Long
i & LastRow are Variants in the above, perhaps you meant ?

Dim i As Long, LastRow As Long, LastNum As Long