strNum = .Cells(LastRow, 1)
Should be
strNum = .Cells(lngRow, 1)