Converting function to macro

[bookworm121]

So i need to get these function into a macro so that no matter what the size of the spreadsheet it loops till the very end. I have the logic figured out I just need help writing the actual code.

Assume x is the row number... so is we're at Ax this means we're in cell A2 while if we're at Ax-1 we're in A1 for that example...

We have 2 columns C and D that are pre-filled.

In column E's first cell I need this function: =if(c1="",D1&" "&D2, D1)
in the rest of column E's cells I need this function: = if(Cx-1<>"",Dx,Ex-1&" "&Dx)

In column F i need this function: =if(Cx="","",Ex) for all the cells

Then I need to delete both columnd D and E

any help would be wonderful! thanks

 

[AlphaFrog]

Try something like this...

Dim Lastrow As Long
Lastrow = Range("C" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
Range("E1").Formula = "=IF(C1="""",D1&"" ""&D2, D1)"
[COLOR="Red"][COLOR="Red"]Range("E2:E" & Lastrow).FormulaR1C1 = "=IF(R[-1]C3<>"""",RC4,R[-1]C5&"" ""&RC4)"[/COLOR][/COLOR]
Range("F1:F" & Lastrow).FormulaR1C1 = "=IF(RC3="""","""",RC5)"
Range("F1:F" & Lastrow).Value = Range("F1:F" & Lastrow).Value
Range("D1:E" & Lastrow).ClearContents
Application.ScreenUpdating = True

 

[bookworm121]

huh... that actually works!
it creates a very messy result, but totally fixable
THANKS A LOT!

Try something like this...

Dim Lastrow As Long
Lastrow = Range("C" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
Range("E1").Formula = "=IF(C1="""",D1&"" ""&D2, D1)"
[COLOR=red][COLOR=red]Range("E2:E" & Lastrow).FormulaR1C1 = "=IF(R[-1]C3<>"""",RC4,R[-1]C5&"" ""&RC4)"[/COLOR][/COLOR]
Range("F1:F" & Lastrow).FormulaR1C1 = "=IF(RC3="""","""",RC5)"
Range("F1:F" & Lastrow).Value = Range("F1:F" & Lastrow).Value
Range("D1:E" & Lastrow).ClearContents
Application.ScreenUpdating = True