Necesito cambiar la ultima línea de esta Macro

Buenod días
Tengo esta Macro:

'Por. Dante Amor
Set h1 = ActiveSheet
Set h2 = Sheets("Provedores")
i = 42
Do While h2.Cells(i, "S") <> ""
i = i + 1
Loop
h1.Range("G10").Copy
h2.Range("R" & i).PasteSpecial Paste:=xlPasteValues
h1.Range("G44").Copy
h2.Range("S" & i).PasteSpecial Paste:=xlPasteValues

Y necesito que La ultima linea:

h2.Range("S" & i).PasteSpecial Paste:=xlPasteValues

Me la haga en la misma línea pero en la columna "T".
Un saludo