Подскажите, в чем ошибка?

[nihil_]

добрый день!
подскажите пожалуйста почему пишет ошибку Err "Type micmatch" в строке

Rows("Cstr(s):Cstr(s)").Select

?

Sub Test2()
      
Dim cell As Range
Dim s As Variant
With Worksheets("НЗамовлення").Range("B44:M200")
    Set C = .Find("Складові частини (мат-ли), які надані Замовником", LookAt:=xlPart)
    firstAddress = C.Address
    s = Range(firstAddress).Offset(3, 0).Row
    'MsgBox (s)
End With

Range("C44").Select
Do Until IsEmpty(ActiveCell)
    For Each cell In Selection
        If cell Like "*-*-*-*" Then
            ActiveCell.EntireRow.Cut
            Rows("Cstr(s):Cstr(s)").Select
            Selection.Insert
        End If
    Next
    
ActiveCell.Offset(1, 0).Select
Loop

End Sub

[IgorGO]

Rows(s & ":" & s).Select
потому что
Rows("напишите в кавычки названия хоть всех функций VBA CStr(s) Val(s) Cos(s) и пр.").Select
это будет всего лишь строка содержащая то, что вы в нее написали, а не строка, содержащая результаты выполнения этих функций

[nihil_]

понял, Rows воспринимает все перем. как текст, а знак & задает значение перем. как параметр?

[nihil_]

Спасибо, работает!

[IgorGO]

Спасибо, работает!

пожалуйста

понял

показалось...

Rows воспринимает все перем. как текст

Rows(10) - это строка 10, и тут нет даже намека на текст!
Rows("5:15") - это диапазон с строки 5 по 15
Rows("Cstr(s):Cstr(s)") - это бред! мне понятно, что Вы хотели написать, но с точки зрения VBA - это бред!!! понимаете, человеческий мозг способен воспринимать не точно сформулированные намерения, компилятор VBA может воспринимать только четкие инструкции
и даже когда конструкция
Rows("Cstr(s):Cstr(s)")
не противоречит синтаксису языка, то в процессе выполнения выясняется, что это полный бред с точки зрения возможности выполнения данной команды.
VBA выполняет не то, о чем Вы думаете, а то, что Вы написалим!!! даже если Вы очень сильно о чем-то думаете, VBA выполнит, то что написано, а не предмет Ваших грез и мечтаний