VBA : Input form : Copy column and paste special value in another column

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

Hello Marc ,

Thank you for your feedback.
I cannot seem to be able to attach file

Yes , there is .

In Sheets("Cal")
Column A is my Parameters Column (A2:A9)

Column B is my Weightage (%) Column (B2:B9)

Follow top page yellow banner to attach your workbook …

[
Hi Marc ,

Thanks for the feedback.

I have attached the excel sheet
ATTACH]841697[/ATTACH]

Tip Top Marc . It fits perfectly . Thank you for your patience
Have a nice evening