Hope someone can help me here. I have been asked to generate a macro that will insert columns at E & F and then merge D, E & F for each individual row for the entire sheet.

I currently have the following macro as a sample but was wondering how I could easily get this to go to the bottom of the sheet?

Sub Macro1()
'
' Macro1 Macro
'

'
Columns("E:F").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range( _
"D1:F1,D2:F2,D3:F3,D4:F4,D5:F5,D6:F6,D7:F7,D8:F8,D9:F9,D10:F10,D11:F11"). _
Select
Range("D11").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub

Any Idea's would be greatly appreciated

Regards
Mark