VBA Blank Row insert

[Jokky]

Good Morning Everyone. I am looking for VBA code that will insert a blank row after every data change in row CD, but must have a message box to ask me at what row must it start.
I have the following VBA code that I use, I found in MrExcel but it has the row where to start build in to it. I need to be able to choose what row to begin because the amount of rows keeps on changing.

Sub InsertRowsAtValueChangeColumnB()
Dim X As Long, LastRow As Long
Const DataCol As String = "CD"
Const StartRow = 111
LastRow = Cells(Rows.Count, DataCol).End(xlUp).Row
Application.ScreenUpdating = False
For X = LastRow To StartRow + 1 Step -1
If Cells(X, DataCol).Value <> Cells(X - 1, DataCol) Then Rows(X).Insert
Next
Application.ScreenUpdating = True
End Sub

Thank you in advance to anyone that can help.

Regards
Jokky

An added bonuse would be if i could colour those blank cells black from column A to CD as i use them as a visual seperator.

 

[mohadin]

Hi
Replace

Const StartRow = 111

With

Dim StartRow As Long
   StartRow = InputBox("Enter Start Row")

 

[Jokky]

Hi
Replace

Const StartRow = 111

With

Dim StartRow As Long
   StartRow = InputBox("Enter Start Row")

Thank you very much Mohadin. It works like a treat.

 

[mohadin]

You are welcome
Glad I helped
Thank you for the feedback
Be happy