Current
Sub copypaste()
Sheets("yahoo").Select
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
' run below line code in d5 only
Range("D5").FormulaR1C1 = "=R[-1]C[6]"
'run below line from e5 and below depending on value entered in H, if h col value is empty stop code from...