Change destination VBA

[bullcreel]

This VBA works great, however, I need to change it up because the new worksheets I have developed dont match up identical like this VBA suggests. "CleGame" current row is now 99 to 133 and current Column is 9 to 62. I think I can fix this part. The part I am struggling with is the new destination sheet "Cle". The information doesnt match "CleGame" any longer, the data needs to go in worksheet "Cle" cell ranges (b4:R39). I no longer need to ClearContents either. Thanks in advance for your help.

sub GameStatsCle()

Dim CurrentRow

For CurrentRow = 4 To 39
For CurrentColumn = 2 To 17
Sheets("Cle").Cells(CurrentRow, CurrentColumn).Value = Sheets("CleGame").Cells(CurrentRow, CurrentColumn).Value + Sheets("Cle").Cells(CurrentRow, CurrentColumn).Value

Next CurrentColumn
Next CurrentRow

For CurrentRow = 43 To 60
For CurrentColumn = 2 To 19
Sheets("Cle").Cells(CurrentRow, CurrentColumn).Value = Sheets("CleGame").Cells(CurrentRow, CurrentColumn).Value + Sheets("Cle").Cells(CurrentRow, CurrentColumn).Value
Next CurrentColumn
Next CurrentRow

Sheets("CleGame").Range("b4:R36").ClearContents
Sheets("CleGame").Range("b4:R36").Style = "Normal"
Sheets("CleGame").Range("b43:P60").ClearContents
Sheets("CleGame").Range("b43:P60").Style = "Normal"

End Sub

 

[diddi]

try this in place of all you have there

Sub GameStatsCle()
    Dim CurrentRow As Long, CurrentColumn As Long
    
    For CurrentRow = 4 To 39
        For CurrentColumn = 2 To 17
            Sheets("Cle").Cells(CurrentRow, CurrentColumn).Value = Sheets("CleGame").Cells(CurrentRow + 95, CurrentColumn).Value + Sheets("Cle").Cells(CurrentRow, CurrentColumn).Value
        Next CurrentColumn
    Next CurrentRow
End Sub

 

[bullcreel]

Diddi
I already have a solution. Thank You so much for the response.