по тех заданию не совсем ясно всё, но думаю это поможет:
пусть в столбцах A и B(неважно какой длины) есть непустые ячейки, идущие друг за другом без перерывов
после выполнения данной процедуры в столбце C - разность длин столбцов
A B C
1 2 4
1 2
1 2
1 2
1 2
1
1
1
1
Sub A_B_C()
Dim N, Na, Nb As Integer
With Лист1
'считаем количество непустых ячеек в столбце A
Na = 0
While (.Cells(Na + 1, 1))
Na = Na + 1
Wend
'считаем количество непустых ячеек в столбце B
Nb = 0
While (.Cells(Nb + 1, 2))
Nb = Nb + 1
Wend
.Cells(1, 3) = Na - Nb
End With
End Sub