Sub TransposeShuffledFielders() \' \' TransposeShuffledFielders Macro \' Copy and Paste the Fielders from Fielding Matrix \' \' Dim i As Integer For i = 2 To 11