VBA - need help to copy data from one file to another file in a different format

[alexor2002]

I need your help in automating movement of data from one file to another file but in a different format.

Please find attached the current worksheet (what it looks now) and future worsheet (how it needs to look for the upload to work)

I mention that the number of columns and rows is much greater and I can't figure out how to create a loop that copies and pastes all columns to the right up until last Customer price, (it can be today I have 500 customer price, tomorrow 200, etc.). Same with rows, it might be today I enter 10 codes, tomorrow 1000.

 

[alexor2002]

I am testing and have written a part of the code, but I don't know what to write so that the next interation starts pasting on the fist blank cell in column A

Option Explicit

Sub selectrange()
Dim iterations As Integer, i As Integer, initrange As Range


Range("B4", Range("B4").End(xlToRight)).Select
iterations = Range("B4", Range("B4").End(xlToRight)).Count
For i = 1 To iterations
Range("B4", Range("B4").End(xlDown)).Offset(, i - 1).Copy
Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Next i


End Sub