I would like there put from sheet3 value to input some value always to the next find empty columns.
Some like a below :
But my code not work correctly :
Some like a below :
From Sheet3 | To Input_6 |
B68 | T2 |
B69 | T3 |
B70 | T4 |
B71 | T5 |
Rich (BB code):
'''THIS PART PUT in T2 ok''''
wbMe.Sheets("Sheet3").Range("B68").Copy
wbMe.Sheets("input_6").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues
'''SUM''' <---- But this one put not T3 on 3row but on AVR4 its last avaliable column on my sheet.
wbMe.Sheets("Sheet3").Range("F70") = wbMe.Sheets("Sheet3").Range("F68").Value + wbMe.Sheets("Sheet3").Range("G68").Value
wbMe.Sheets("Sheet3").Range("F70").Copy
wbMe.Sheets("input_6").Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues