[發問] 程式碼簡化

不好意思，陣列語法寫不來，只會土法煉鋼；
請各位先進指導和簡化。
謝謝！

‘列113~列137的程式碼
'複製內容.............................................................................
      Sheets("DATA").Range("A" & StrRng + 1, "I" & mthcount + 1).Copy .Range("T2").Resize(1, mthcount - StrRng + 1)
      Sheets("DATA").Range("A" & StrRng, "I" & mthcount).Copy .Range("AC2").Resize(1, mthcount - StrRng + 1)
With Sheets("準7進8")
      Sheets("DATA").Range("A" & StrRng - 1, "I" & mthcount - 1).Copy .Range("AL2").Resize(1, mthcount - StrRng + 1)
End With
With Sheets("準7進8")
      Sheets("DATA").Range("A" & StrRng - 2, "I" & mthcount - 2).Copy .Range("AU2").Resize(1, mthcount - StrRng + 1)
End With
With Sheets("準7進8")
      Sheets("DATA").Range("A" & StrRng - 3, "I" & mthcount - 3).Copy .Range("BD2").Resize(1, mthcount - StrRng + 1)
End With
With Sheets("準7進8")
      Sheets("DATA").Range("A" & StrRng - 4, "I" & mthcount - 4).Copy .Range("BM2").Resize(1, mthcount - StrRng + 1)
End With
With Sheets("準7進8")
      Sheets("DATA").Range("A" & StrRng - 5, "I" & mthcount - 5).Copy .Range("BV2").Resize(1, mthcount - StrRng + 1)
End With
With Sheets("準7進8")
      Sheets("DATA").Range("A" & StrRng - 6, "I" & mthcount - 6).Copy .Range("CE2").Resize(1, mthcount - StrRng + 1)
End With
      Sheets("準7進8").Range("AL2", "CD" & mthcount - StrRng + 2).Copy Sheets("準6進7").Range("AL2")
      Sheets("準7進8").Range("AL2", "BU" & mthcount - StrRng + 2).Copy Sheets("準5進6").Range("AL2")
      Sheets("準7進8").Range("AL2", "BL" & mthcount - StrRng + 2).Copy Sheets("準4進5").Range("AL2")
      Sheets("準7進8").Range("AL2", "BC" & mthcount - StrRng + 2).Copy Sheets("準3進4").Range("AL2")
      Sheets("準7進8").Range("AL2", "AT" & mthcount - StrRng + 2).Copy Sheets("準2進3").Range("AL2")