Macro to pull info from 2 cells and provide output in third cell

Hello

I am trying to write a macro that will do the following

1. Copy info from cell G11 to F11
2. Capitalise first letter
3. Add 'space' (char to end of copied data
4. Copy info from cell I11 to end of data in cell F11
5. add ) to end of data.

This needs to be able to be done on an entire spreadsheet of over 4000 lines.

You can see this from the attached picture.

This is what I have come up with so far.

It will only use the data from the absolute fields and not work with other fields down the spreadsheet.

I know it needs relative data, but in VB I do not know how to do this.

Can anyone please help?

Sub Merge()
'
' Merge Macro
' Macro recorded 20/04/2011 by Owner
'

'
    ActiveCell.Offset(0, 1).Range("$A1").Select
    Selection.Copy
    ActiveCell.Offset(0, -1).Range("$A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Line 1 (char "
    ActiveCell.Offset(0, 3).Range("$A1").Select
    ActiveCell.FormulaR1C1 = "26"
    ActiveCell.Offset(0, -3).Range("$A1").Select
    ActiveCell.FormulaR1C1 = "Line 1 (char 26)"
    ActiveCell.Offset(1, 0).Range("$A1").Select
End Sub