Цикл для вставки строки И затем выберите первую ячейку этой строки в VBA

Question

У меня есть столбец со списком 't / n' или 's / n', которые были отсортированы. У меня также есть скрипт, который будет проходить по каждой ячейке, проверяя, когда 't / n' переключается на 's / n' (t / n всегда сортируется первым), а затем вставляет три пустых строки.

Проблема в том, что после вставки строк я хочу выбрать ячейку чуть выше вновь разделенных (благодаря новым строкам) данных 's / n' - это потому, что я тогда вызову другой скрипт, который будет выдвинуть список заголовков (который будет находиться над данными 's / n')

Пока у меня есть:

Sub modTestTemplate()

Dim rngTestTemplate As Range
Set rngTestTemplate = Range("B2").End(xlDown).Offset(4, 0)
rngTestTemplate.Select

Dim LastRow As Integer
Dim CurrentRow As Integer
LastRow = rngTestTemplate.End(xlDown).Row
CurrentRow = 1

Do While CurrentRow <= LastRow

    If Range("B" & CurrentRow).Value = "s/n" Then
        Range("B" & CurrentRow).EntireRow.Resize(3).Insert xlUp
        LastRow = LastRow + 1
        CurrentRow = CurrentRow + 1
        Exit Do
    End If

    CurrentRow = CurrentRow + 1 ' this sets the cell back to the start for the loop

Loop

'when the loop is done I'm wanting to select the cell just above 's/n' as the data needs headers

End Sub

Answer 1

Range("B" & CurrentRow).Select делает работу - как указано SJR.