Help with VBA code to delete certain cells based on an offset

[facfour]

Hello all:

I need some help with automating some clean-up code.

I have a spreadsheet (see attached snippet) with a set number of columns, but the number of rows can change considerably.

What I'd love the code to do is:

Start in column D, find each entry (going down) that is NOT the Primary Borrower and delete the associated cell value in Column G (Exposure), looping until the only entries left under exposure are related to the Primary Borrower.

I imagine this would employ the offset function perhaps, but I'd love any ideas you have.

Thanks in advance!

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub facfour()
   With Range("G3", Range("G" & Rows.Count).End(xlUp))
      .Value = Evaluate(Replace("If(@="""","""",if(" & .Offset(, -3).Address & "<>""Primary Borrower"","""",@))", "@", .Address))
   End With
End Sub

 

[facfour]

Hi & welcome to MrExcel.
How about

Sub facfour()
   With Range("G3", Range("G" & Rows.Count).End(xlUp))
      .Value = Evaluate(Replace("If(@="""","""",if(" & .Offset(, -3).Address & "<>""Primary Borrower"","""",@))", "@", .Address))
   End With
End Sub

Holy Cow! Brilliant! Thanks so much!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[smozgur]

Holy Cow! Brilliant! Thanks so much!

I switched the solution post with the brilliant one to help future readers.