Hi, I wonder whether someone may be able to help me please.

I'm trying to put together a very small script which applied formatting to muliple ranges from the 'StartRow' to the 'LastRow'.

The code below is what I've put together so far, but I receive a error when running this.

    LastRow = Cells(Rows.count, "B").End(xlUp).Row
        If LastRow >= StartRow Then
            With Range("B7:D, G7:H, M7:U" & LastRow)
                With .Font
                    .Name = "Lucida Sans"
                    .Size = 10
                End With
            End With
        End If
I know that the issue is this line 
With Range("B7:D, G7:H, M7:U" & LastRow)
but I'm not too sure how to get around it.

I just wondered whether someone may be able to look at this please and let me know where I'm going wrong.

Many thanks and kind regards