Sammenkædning i vb

Er der nogle måder at gøre dette her på en næmmer måde!!

For r = 3 To 200 Step 5
    ActiveSheet.Range("I" & r) = ActiveSheet.Range("D" & r) & ActiveSheet.Range("E" & r) & ActiveSheet.Range("F" & r) _
    & ActiveSheet.Range("G" & r) & ActiveSheet.Range("H" & r)
Next
For r = 4 To 200 Step 5
    ActiveSheet.Range("I" & r) = ActiveSheet.Range("D" & r) & ActiveSheet.Range("E" & r) & ActiveSheet.Range("F" & r) _
    & ActiveSheet.Range("G" & r) & ActiveSheet.Range("H" & r)
Next
For r = 5 To 200 Step 5
    ActiveSheet.Range("I" & r) = ActiveSheet.Range("D" & r) & ActiveSheet.Range("E" & r) & ActiveSheet.Range("F" & r) _
    & ActiveSheet.Range("G" & r) & ActiveSheet.Range("H" & r)
Next