implement variable increment in VB Code

Kindly assist me to complete the below task using macros.

In the Given file, columns B,C,D are variables and the data has to be pasted side by side as the date changes. So i just need to copy the data present in col B,C,D and paste in the E,F,G columns. when i run the macro for second time the data at that instant has to be placed in the H,I,J column and so on. Also i need to fetch the date from another sheet as shown

Does this help?

Sub invendis()
Dim x As Long
x = Range("A3").End(xlToRight).Column + 1
Range("B3:D7").Copy Cells(3, x)
End Sub

Hi John,

i tried and its working perfect.could you please tell me what are the coordinates i need to change to change the number of columns to copy. And i need to paste special only the values in the destination and what is the code to be edited to do so. Could you please help regarding this?

The number of columns is determined by your range you want too copy. The x variable only offsets to the first empty column to paste in. Try this code for values only.

Sub invendis()
Dim x As Long
x = Range("A3").End(xlToRight).Column + 1
Range("B3:D7").Copy
Cells(3, x).PasteSpecial xlPasteValues
End Sub

Hi John,

The given code works only for the active sheet. Can we specify the sheet name in the code since i have multiple sheets and multiple codes to be merged

Hi John,

Awaiting for your reply

someone guide me to complete the below task which is given in the attachment

can we declare the source data to copy as variable by code?

1. number of rows will be keep on increasing and so need to declare as non blank values as the last cell by only defining the start point.(B3: ~) whereas now we have defined as (B3:D7). The columns will remain same but the rows to be defined as variables.

2. i need to copy and paste special multiple columns adjacent to it. For example in the file shared by me previously, i need to copy the D3:D7 and paste special in Column H3:H7 and proceeding from that need to copy the B3:B7 column and to be pasted in I3:I7 column.

please guide me in completing the above task.

Hello Everyone,

please let me know the possibility on this process

Try:

Sub invendis()
Dim x As Long, ws As Worksheet, y As Long
For Each ws In ActiveWorkbook.Worksheets
    Select Case ws.Name
        Case Is = "data" ', "Your Second Sheet", "ect" You can put the worksheets here
            x = ws.Range("A3").End(xlToRight).Column + 1
            y = ws.Range("A" & Rows.Count).End(3).row
            Cells(3, 2).Resize(y, 3).Copy
            Cells(3, x).PasteSpecial xlPasteValues
    End Select
Next ws
End Sub