Plot Data from 1 sheet to another

Hello guys need your assistance badly on this on how i can auto plot the data from one sheet to another
I have a VBA code on the module portion of the VBA but it seems that it is not working. See below VBA.

Sub Plot_Leave()

Dim rowctr As Long
Dim rowctr2 As Long
Dim colctr2 As Long

Dim TempMonth As Long
Dim tReq As String

rowctr = 2
Do While Sheets("Leave_Raw").Cells(rowctr, 1).Value <> ""
    'TempMonth = Format(Sheets("Call_Out_Raw").Cells(rowctr, 5).Value, "MM")
     TempMonth = Sheets("Leave_Raw").Cells(rowctr, 11).Value
    'MsgBox TempMonth
    
    Select Case TempMonth
    
       Case 42736 To 42763
           Set mWs = Sheets("Cycle_1")
        Case 42764 To 42791
            Set mWs = Sheets("Cycle_2")
        Case 42792 To 42819
            Set mWs = Sheets("Cycle_3")
        Case 42820 To 42847
            Set mWs = Sheets("Cycle_4")
        Case 42848 To 42875
            Set mWs = Sheets("Cycle_5")
        Case 42876 To 42903
            Set mWs = Sheets("Cycle_6")
        Case 42904 To 42931
            Set mWs = Sheets("Cycle_7")
        Case 42932 To 42959
            Set mWs = Sheets("Cycle_8")
        Case 42960 To 42987
            Set mWs = Sheets("Cycle_9")
        Case 42988 To 43015
            Set mWs = Sheets("Cycle_10")
       Case 43016 To 43043
           Set mWs = Sheets("Cycle_11")
        Case 43044 To 43071
            Set mWs = Sheets("Cycle_12")
        Case 43072 To 43100
            Set mWs = Sheets("Cycle_13")
    
       Case Else
            'MsgBox ("Month Not Found")
            MsgBox TempMonth
     End Select
    
    
        rowctr2 = 4
        Do While mWs.Cells(rowctr2, 1).Value <> ""
        
           If mWs.Cells(rowctr2, 1).Value = Sheets("Leave_Raw").Cells(rowctr, 3).Value Then
                
                colctr2 = 1
                Do While mWs.Cells(4, colctr2).Value <> ""
                
                    If mWs.Cells(4, colctr2).Value = Sheets("Leave_Raw").Cells(rowctr, 5).Value Then
                                         
                        tReq = Sheets("Leave_Raw").Cells(rowctr, 4).Value
                        
                        Select Case tReq
                            
                            Case "Vacation Leave"
                            mWs.Cells(rowctr2, colctr2).Value = "VL"
                            mWs.Cells(rowctr2, colctr2).Interior.Color = RGB(141, 180, 226)
                            mWs.Cells(rowctr2, colctr2).Font.Color = RGB(0, 0, 0)
                                         
                            Case "Half Day Vacation Leave"
                            mWs.Cells(rowctr2, colctr2).Value = "H/VL"
                            mWs.Cells(rowctr2, colctr2).Interior.Color = RGB(184, 204, 228)
                            mWs.Cells(rowctr2, colctr2).Font.Color = RGB(0, 0, 0)
                                         
                            Case "Holiday Leave"
                            mWs.Cells(rowctr2, colctr2).Value = "HOL"
                            mWs.Cells(rowctr2, colctr2).Interior.Color = RGB(252, 213, 180)
                            mWs.Cells(rowctr2, colctr2).Font.Color = RGB(0, 0, 0)
                                         
                            Case "Wedding Leave"
                            mWs.Cells(rowctr2, colctr2).Value = "WL"
                            mWs.Cells(rowctr2, colctr2).Interior.Color = RGB(255, 192, 0)
                            mWs.Cells(rowctr2, colctr2).Font.Color = RGB(0, 0, 0)
                            
                            Case "Solo Parent Leave"
                            mWs.Cells(rowctr2, colctr2).Value = "SPL"
                            mWs.Cells(rowctr2, colctr2).Interior.Color = RGB(0, 112, 192)
                            mWs.Cells(rowctr2, colctr2).Font.Color = RGB(255, 255, 255)
                            
                            Case "Short Notice VL"
                            mWs.Cells(rowctr2, colctr2).Value = "VL"
                            mWs.Cells(rowctr2, colctr2).Interior.Color = RGB(184, 204, 228)
                            mWs.Cells(rowctr2, colctr2).Font.Color = RGB(0, 0, 0)
                                                     
                            Case "Cancellation"
                            mWs.Cells(rowctr2, colctr2).Value = mWs.Cells(rowctr2, 6).Value
                            mWs.Cells(rowctr2, colctr2).Interior.Color = RGB(255, 255, 255)
                            mWs.Cells(rowctr2, colctr2).Font.Color = RGB(0, 0, 0)
                            
                            Case "Maternity Leave"
                            mWs.Cells(rowctr2, colctr2).Value = "ML"
                            mWs.Cells(rowctr2, colctr2).Interior.Color = RGB(146, 208, 80)
                            mWs.Cells(rowctr2, colctr2).Font.Color = RGB(0, 0, 0)
                            
                        
                            Case "Paternity Leave"
                            mWs.Cells(rowctr2, colctr2).Value = "PL"
                            mWs.Cells(rowctr2, colctr2).Interior.Color = RGB(146, 208, 80)
                            mWs.Cells(rowctr2, colctr2).Font.Color = RGB(0, 0, 0)
                        
                                                
                                                     
                            Case Else
                            MsgBox ("Month Not Found")
                            
                            End Select
                            
                            mWs.Cells(rowctr2, colctr2).Font.Size = 8
                            mWs.Cells(rowctr2, colctr2).Font.Name = "Arial"
                            mWs.Cells(rowctr2, colctr2).HorizontalAlignment = xlCenter
                            
                        End If
                    
        
                    colctr2 = colctr2 + 1
                    
               Loop
                Exit Do

            End If
            rowctr2 = rowctr2 + 1
        Loop

    
    rowctr = rowctr + 1
Loop

Sheets("temp").Cells.ClearContents
Sheets("temp2").Cells.ClearContents
Sheets("temp3").Cells.ClearContents


End Sub