Excel Macro To Transpose Copy Paste Looping Through Timetable Data

ExcelMacroTranspose.vba

Sub Copy()
NextLine = 1
TeacherLine = 0
Period = 1
For i = 4 To 46
    Worksheets("Main").Range("B" & i & ":BI" & i).Copy
    Worksheets("Result").Range("B" & NextLine).PasteSpecial Transpose:=True
    
    For T = 1 To 60
    If Period > 60 Then Period = 1
    Teacher = Worksheets("Main").Range("A" & i).Value
    Worksheets("Result").Range("E" & T + TeacherLine).Value = Teacher
    Worksheets("Result").Range("A" & T + TeacherLine).Value = Period
    
    If Worksheets("Result").Range("B" & T + TeacherLine).Value Like "*7*" Then Worksheets("Result").Range("C" & T + TeacherLine).Value = "UIII"
    If Worksheets("Result").Range("B" & T + TeacherLine).Value Like "*8*" Then Worksheets("Result").Range("C" & T + TeacherLine).Value = "LIV"
    If Worksheets("Result").Range("B" & T + TeacherLine).Value Like "*9*" Then Worksheets("Result").Range("C" & T + TeacherLine).Value = "UIV"
    If Worksheets("Result").Range("B" & T + TeacherLine).Value Like "*10*" Then Worksheets("Result").Range("C" & T + TeacherLine).Value = "LIV"
    If Worksheets("Result").Range("B" & T + TeacherLine).Value Like "*11*" Then Worksheets("Result").Range("C" & T + TeacherLine).Value = "UV"
    If Worksheets("Result").Range("B" & T + TeacherLine).Value Like "*12*" Then Worksheets("Result").Range("C" & T + TeacherLine).Value = "LVI"
    If Worksheets("Result").Range("B" & T + TeacherLine).Value Like "*13*" Then Worksheets("Result").Range("C" & T + TeacherLine).Value = "UVI"
    
    Worksheets("Result").Range("A" & T + TeacherLine).Value = Period
    Period = Period + 1
    Next
    NextLine = NextLine + 60
    TeacherLine = TeacherLine + 60

Next
End Sub