shahzeb123
Board Regular
- Joined
- Jul 29, 2021
- Messages
- 61
- Office Version
- 2016
- Platform
- Windows
Below code is working fine and it is doing what i need. However, only one problem remains that it pasting the data in 1 row only not going into next row.
What i need is it should always paste the data into the next available blank column
What i need is it should always paste the data into the next available blank column
VBA Code:
Sub Button1_Click()
Dim R&
R = Sheet2.Cells(Rows.Count, 1).End(xlUp)(2).Row
Sheet2.Cells(R, 12).Value = Sheet1.[F24].Value
Sheet2.Cells(R, 2).Value = Sheet1.[D14].Value
Sheet2.Cells(R, 3).Value = Sheet1.[D15].Value
Sheet2.Cells(R, 4).Value = Sheet1.[D16].Value
Sheet2.Cells(R, 5).Value = Sheet1.[D20].Value
Sheet2.Cells(R, 5).Value = Sheet1.[D20].Value
Sheet2.Cells(R, 6).Value = Sheet1.[D21].Value
Sheet2.Cells(R, 7).Value = Sheet1.[M1].Value
Sheet2.Cells(R, 8).Value = Sheet1.[D5].Value
Sheet2.Cells(R, 9).Value = Sheet1.[G15].Valu
Sheet2.Cells(R, 10).Value = Sheet1.[G16].Value
Sheet2.Cells(R, 11).Value = Sheet1.[G19].Value
Sheet2.Cells(R, 13).Value = Sheet1.[G43].Value
Sheet2.Cells(R, 14).Value = Sheet1.[G44].Valu
Sheet2.Cells(R, 15).Value = Sheet1.[G45].Value
Sheet2.Cells(R, 16).Value = Sheet1.[G46].Value
Sheet2.Cells(R, 17).Value = Sheet1.[D35].Value
End Sub