Сортировка столбца значений в форматированный лист для печати этикеток

Question

Так что я должен напечатать около 4000 этикеток для работы.У меня есть полный список в Excel того, что нужно сказать каждому, и я создал шаблон на другом листе для печати этикеток.Тут все немного сложнее, так как из-за способа форматирования меток на странице я хочу вставить значения только в каждый второй столбец и каждую третью строку.

Мой план состоял в том, чтобы иметь функцию, которая возвращает следующую пустую ячейку, а затем использовать для каждого цикла, чтобы скопировать каждое значение из основного списка в форматированный лист, используя функцию nextCell, чтобы определить, какую ячейку поместитьЯ не дошел до каждого цикла, но это должно быть легко.Ниже приведена моя функция nextCell, которая работает неправильно.Он выходит из функции сразу после первой, каждый раз, когда я запускаю ее построчно.Я тестировал его с каким-то текстом в первых нескольких целевых ячейках, поэтому он не должен закрываться немедленно.

Function nextCell() As Range
 Dim i As Long, j As Long, ws As Worksheet, lbls As Worksheet
 Set ws = Worksheets("Sheet1")
 Set lbls = Worksheets("Sheet2")
 Static n As Long
 If n = 0 Then
  n = 1
 End If
 j = 1
  For i = n To i = 630 Step 3
    For j = 1 To j = 35 Step 2
     If ws.Cells(i, j).Value = 0 Or _
      ws.Cells(i, j).Value = "" Then
      nextCell = ws.Cells(i, j)
      n = i
      Exit Function
   End If
  Next j
Next i
End Function