VBA paste date to next empty column

[Palucci]

I have a code that copies me to the next empty column, the first .range code ("B68") copies to the second row T2, I would like the next F70 under him: for example
B68> T2
F70> T3
B70> T4.

But my second code .Range("F70") pasted BGH3 and this is a penultimate column I dont know why

wbMe.Sheets("blank3").Range("B68").Copy
wbMe.Sheets("input_6").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues
'''SUMA'''
wbMe.Sheets("sblank3").Range("F70") = wbMe.Sheets("strona 3").Range("F68").Value + wbMe.Sheets("strona 3").Range("G68").Value
wbMe.Sheets("blank3").Range("F70").Copy
wbMe.Sheets("input_6").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues

 

[Fluff]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: VBA copying and pasting date always on Next empty columns
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Alex Blakenburg]

Try this:
(you did not give an example for B70 so you will need to update what goes on the right hand side of the equation)

Sub PasteToLastEmptyColumn()

    'B68> T2
    'F70> T3
    'B70> T4 - Source data details not supplied - Palucci needs to update line

    Dim wbMe As Workbook
    Dim pasteColNew As Long
    Dim pasteRowNext As Long
    
    Set wbMe = ThisWorkbook
    
    pasteColNew = wbMe.Sheets("input_6").Cells(2, Columns.Count).End(xlToLeft).Column + 1

    wbMe.Sheets("blank3").Range("B68").Copy
    pasteRowNext = 2
    wbMe.Sheets("input_6").Cells(pasteRowNext, pasteColNew).PasteSpecial Paste:=xlPasteValues
    '''SUMA'''
    wbMe.Sheets("sblank3").Range("F70") = wbMe.Sheets("strona 3").Range("F68").Value + wbMe.Sheets("strona 3").Range("G68").Value
    wbMe.Sheets("blank3").pasteRowNext("F70").Copy
    pasteRowNext = pasteRowNext + 1
    wbMe.Sheets("input_6").Cells(pasteRowNext, pasteColNew).PasteSpecial Paste:=xlPasteValues
    
    
    wbMe.Sheets("sblank3").Range("B70") = "Palucci to fill this in"     ' <------ Needs source data to be entered
    wbMe.Sheets("blank3").pasteRowNext("B70").Copy
    pasteRowNext = pasteRowNext + 1
    wbMe.Sheets("input_6").Cells(pasteRowNext, pasteColNew).PasteSpecial Paste:=xlPasteValues
    
End Sub