vba to locate bottom of data and merge adjacent cells

[cjcass]

Hi,
Is there some vba that will look down a column of data, find the last three entries and then merge three adjacent cells, type in the word BOTTOM, rotate the text up, centralise the text in both planes, and finally fill it red with red text? Please assume the column of data has a fixed range, eg. in the first example the data range runs from B3:B30.
Please see the examples of the required result below...
Any help much appreciated.

 

[cjcass]

ok, looks like I've found a solution from a previous post on Mr.Excel, the code is as follows (ignoring my specific examples):
Thanks to anyone who was working on this for me

Sub mergeAlike()
Application.DisplayAlerts = False
Set rng = ActiveSheet.Range("B1:B30")
x = 1
y = 1
Do
Do While rng.Cells(x, 1) = rng.Cells(y, 1)
x = x + 1
Loop
If x - y > 2 Then
Range(rng.Cells(x - 1, 1), rng.Cells(y, 1)).Merge
End If
y = x
Loop Until y > rng.Cells.Count
Application.DisplayAlerts = True
End Sub