Hello raknahs,

Try this version...
Sub Macro1A()

  Dim arr As Variant
  Dim I As Integer
  
    arr = Array("R4:R17", "R19:R58", "R60:R86", "R88:R109")
    
      For I = 0 To UBound(arr)
        With Range(arr(I))
          .Value = WorksheetFunction.VLookup(Range(arr(I)).Offset(0, -16), Worksheets("Placeholder").Range("C2:F202"), 4, False)
          On Error Resume Next
            .SpecialCells(xlCellTypeConstants, xlErrors).Value = 0
          On Error GoTo 0
        End With
      Next I
      
End Sub