Macro insert row in range ("B4:H")

[feroguz]

Hi Users of Excel Forum!, Good morning!

I have a problem with this macro:

With Sheets("CUSTOMIZED BOM")
  If Intersect(ActiveCell, .Range("A4:A7000")) Is Nothing Then GoTo einde
Set R = .Columns(3).Find(ActiveCell, , xlValues, xlWhole)
 With R
  If Not .Offset(WorksheetFunction.CountIf(Columns(3), R), 2) = "C" Then
         '.Offset(WorksheetFunction.CountIf(Columns(3), R), 2).EntireRow.Insert
         
         'Range("B4").Offset(WorksheetFunction.CountIf(Columns(3), R), 2).Insert
        Range("B4").End(xlUp).Offset(WorksheetFunction.CountIf(Columns(3), R), 1).Insert
        
          .Offset(WorksheetFunction.CountIf(Columns(3), R), 2) = "C"

I have this case:
I select a value in A4:A range (I have other macro), I don't move the values ​​in range "A", but I need to put a Row in range ("B4:H"),

I try with this:

.Offset(WorksheetFunction.CountIf(Columns(3), R), 2).EntireRow.Insert

,
but put me a EntireRow and move the values in "A"

And try with this:

Range("B4").End(xlUp).Offset(WorksheetFunction.CountIf(Columns(3), R), 1).Insert

Someone help me?
Best Regards!

[patel45]

what do you mean with A4:A range, range ("B4:H") ? attach a sample file describing your goal