Hello

I'm quite new to VBA .
I'm trying to do a Input form with VBA

I have 3 sheets

Sheet1 : Input
Sheet 2 : Sheet3
Sheet 3 : Cal

I have two macros which work with a insert button :

Sheet1 = Input - Sub OneCell()
Sheet2 = Sheet3 - Sub ok()


Sub OneCell()

Sheets("Input").Range("c3:c9").Copy Sheets("Sheet3").Range("b3:b9")
Sheets("Input").Range("c3:c9").ClearContents


End Sub

and


Sub ok()

Sheets("Sheet3").Range("c3:c9").Copy

Sheets("Cal").Range("c3:c9").PasteSpecial Paste:=xlPasteValues

Sheets("Sheet3").Range("b3:b9").ClearContents

End Sub


For the Macro Sub ok()


I would like to have the same code but which will paste the value in the the following empty columns in Sheet Cal

such as pasting the values starting in c3:c9 then pasting the following values in d3:d9 and so on


Is what something possible ?

Thanks in advance