Option Explicit
Sub splitX()
Dim lr As Long
Dim half As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
half = lr / 2
Range("A1:F" & half).Copy Range("H1")
Range("A" & half + 1 & ":F" & lr).Copy Range("O1")
End Sub
This works for an Even number of players,Code:Option Explicit Sub splitX() Dim lr As Long Dim half As Long lr = Range("A" & Rows.Count).End(xlUp).Row half = lr / 2 Range("A1:F" & half).Copy Range("H1") Range("A" & half + 1 & ":F" & lr).Copy Range("O1") End Sub
Sub splitX()
Dim lr As Long
Dim half As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
half = lr / 2
If half Mod 2 = 1 Then
Range("A1:F" & half).Copy Range("H1")
Range("A" & half + 1 & ":F" & lr).Copy Range("O1")
Else: Range("A1:F" & half - 1).Copy Range("H1")
Range("A" & half & ":F" & lr).Copy Range("O1")
End If
End Sub