Option Explicit
Sub MoveData()
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet, s5 As Worksheet
Set s1 = Sheets("MainBoard"): Set s2 = Sheets("Jan-Mac")
Set s3 = Sheets("Apr-Jun"): Set s4 = Sheets("Jul-Sep")
Set s5 = Sheets("Oct-Dis")
Dim lr1 As Long, lr2 As Long, lr3 As Long, lr4 As Long, lr5 As Long
Dim i As Long
lr1 = s1.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = 5 To lr1
With s1
If Month(.Range("B" & i)) = 1 Or Month(.Range("B" & i)) = 2 Or Month(.Range("B" & i)) = 3 Then
lr2 = s2.Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & i & ":I" & i).Copy
s2.Range("A" & lr2).PasteSpecial xlPasteValues
ElseIf Month(.Range("B" & i)) = 4 Or Month(.Range("B" & i)) = 5 Or Month(.Range("B" & i)) = 6 Then
lr3 = s3.Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & i & ":I" & i).Copy
s3.Range("A" & lr3).PasteSpecial xlPasteValues
ElseIf Month(.Range("B" & i)) = 7 Or Month(.Range("B" & i)) = 8 Or Month(.Range("B" & i)) = 9 Then
lr4 = s4.Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & i & ":I" & i).Copy
s4.Range("A" & lr4).PasteSpecial xlPasteValues
Else
lr5 = s5.Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & i & ":I" & i).Copy
s5.Range("A" & lr4).PasteSpecial xlPasteValues
End If
End With
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Action Completed"
End Sub