Like this, maybe:
Range("D20").Select
Selection.Formula = "=IF(AND(D13=""something"",H13=""something""),(D15*H15)*Sheet2!B2+D17*Sheet2!H2+H17*Sheet2!H3+K17*Sheet2!H4,IF(AND(D13=""something"",H13=""somethingelse""),(D15*H15)*Sheet2!C2+D17*Sheet2!H2+H17*Sheet2!H3+K17*Sheet2!H4,IF(AND(D13=""somethingelse"",H13=""something""),(D15*H15)*Sheet2!D2+D17*Sheet2!H2+H17*Sheet2!H3+K17*Sheet2!H4,IF(AND(D13=""Somethingelse"",H13=""somethingelse""),(D15*H15)*Sheet2!E2+D17*Sheet2!H2+H17*Sheet2!H3+K17*Sheet2!H4,""""))))"
' can become:
Range("D20").Formula = _
"=IF(AND(D13=""something"",H13=""something""),(D15*H15)*Sheet2!B2+D17*Sheet2!H2+H17*Sheet2!H3+K17*Sheet2!H4," & _
"IF(AND(D13=""something"",H13=""somethingelse""),(D15*H15)*Sheet2!C2+D17*Sheet2!H2+H17*Sheet2!H3+K17*Sheet2!H4," & _
"IF(AND(D13=""somethingelse"",H13=""something""),(D15*H15)*Sheet2!D2+D17*Sheet2!H2+H17*Sheet2!H3+K17*Sheet2!H4," & _
"IF(AND(D13=""Somethingelse"",H13=""somethingelse""),(D15*H15)*Sheet2!E2+D17*Sheet2!H2+H17*Sheet2!H3+K17*Sheet2!H4,""""))))"
Bookmarks