Диапазон до последней заполненной ячейки в строке

 targetRng = "O2:O44"
 For Each Rng In Range(targetRng)
 Rng.Offset(0, 6).Value = Application.WorksheetFunction.CountIf(Range(Split(targetRng, ":")(0) & ":" & Rng.Address), Rng.Value)
Next

LRow = Cells(Rows.Count,"O").End(xlUp).Row
targetRng = "O2:O" & LRow

Sub CopyData()
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 2
    Application.ScreenUpdating = False
    Do While (Cells(xRow, "A") <> "")
        VInSertNum = Cells(xRow, "T") 'в ячейке T число сколько будет создано дубликатов
        If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
           Range(Cells(xRow, "A"), Cells(xRow, "T")).Copy  'аналогично
           Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "T")).Select 'и тут
           Selection.Insert Shift:=xlDown
           xRow = xRow + VInSertNum - 1
        End If
        xRow = xRow + 1
    Loop
        Application.ScreenUpdating = False
     LRow = Cells(Rows.Count, "O").End(xlUp).Row 'ячейка O подсчет созданных дубликатов для нумерации, в моем случае серийные номера, т.к названия могут быть одинаковыми
     targetRng = "O3:O" & LRow 'тут тоже
 For Each Rng In Range(targetRng)
 Rng.Offset(0, 6).Value = Application.WorksheetFunction.CountIf(Range(Split(targetRng, ":")(0) & ":" & Rng.Address), Rng.Value) '(0, 6) - расстояние, от ячейки по которой производился подсчет (в строках и столбцах), где будет прописана нумерация 
 Next
End Sub