Sub TransposeShuffledFielders()
'
' TransposeShuffledFielders Macro
' Copy and Paste the Fielders from Fielding Matrix
'
'
Dim i As Integer
For i = 2 To 11
Sheets("Fielding Matrix").Select
Range("H6:H14").Select
Selection.Copy
Sheets("Result Matrix").Select
Range("Bi").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Next
End Sub
Can any one fix this error? When I debug, it is showing the error at Range("Bi").Select
Thanks and Regards
Bhanu Prakash
question from:
https://stackoverflow.com/questions/65928911/vba-run-time-error-1004-for-loop-copy-and-paste-run-time-method-range-of-obje 与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…