How to change column depending on user input?

Ok, so I have some code in Excel VBA and what I'm struggling with is making it so that when I input a number let's say 3, the code firstly makes 3 new columns where to column R is and then makes 3 columns where the column W moved to. Is this possible? I was thinking something like column W + i but i don't know how to do that in VBA

Private Sub CommandButton1_Click()
Dim i As Integer
Dim n As Integer
n = InputBox("How many columns do you want to add?")
For i = 1 To n
Columns("R:R").Select
Columns("R:R").Copy
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Next i
Columns("W:W").Select
Columns("W:W").Copy
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Next i
End Sub

I dont know much about VBA so I just tried some experimenting with putting Columns("W + i:W + i").Select this as a line but it didn't work and I'm not even surprised.

Option Explicit

Private Sub CommandButton1_Click()

    Dim n As Long, s
    n = InputBox("How many columns do you want to add?")
    If n < 1 Then Exit Sub
    
    For Each s In Array("W:W", "R:R")
        With Columns(s)
            .Copy
            .Resize(, n).Insert Shift:=xlToRight, _
               CopyOrigin:=xlFormatFromLeftOrAbove
        End With
    Next
    Application.CutCopyMode = False
    
End Sub

</details>