Insert rows

I am trying to create a macro that will insert a row if the first character in a cell is different to the cell below. I've tried various options but cannot get the macro to see the first characters of the cells.

Example:

aaa
abb
baa
bbb
ccc
ccd
ddd
dde

would become:

aaa
abb

baa
bbb

ccc
ccd

ddd
dde

Thanks for any help.

You can try to use this macro:

Sub Macro1()
   Dim lastRow As Long
   Dim r As Long
   Dim myColumn As String
   
   'here works on column 'A'
   myColumn = "a"
   
   lastRow = Cells(Rows.Count, myColumn).End(xlUp).Row
   For r = lastRow To 2 Step -1
      If Left(Cells(r, myColumn), 1) <> Left(Cells(r - 1, myColumn), 1) Then
         Rows(r).Insert
      End If
   Next
End Sub

Regards,
Antonio

Exactly what I needed, thanks so much for that.