finding last row issue

[RedOctoberKnight]

Good Morning,

I have the following bit of code that I'm using to fill some combo boxes in a Userform.

Dim LastRow As Long
LastRow = Cells(Rows.Count, "M").End(xlUp).row

  ComboBox1.List = Sheets("SETTINGS").Range("M3:M" & LastRow).Value
  ComboBox2.List = Sheets("SETTINGS").Range("M3:M" & LastRow).Value
  ComboBox3.List = Sheets("SETTINGS").Range("M3:M" & LastRow).Value
  ComboBox4.List = Sheets("SETTINGS").Range("M3:M" & LastRow).Value
  ComboBox5.List = Sheets("SETTINGS").Range("M3:M" & LastRow).Value
  ComboBox6.List = Sheets("SETTINGS").Range("M3:M" & LastRow).Value
  ComboBox7.List = Sheets("SETTINGS").Range("M3:M" & LastRow).Value
  ComboBox8.List = Sheets("SETTINGS").Range("M3:M" & LastRow).Value
  ComboBox9.List = Sheets("SETTINGS").Range("M3:M" & LastRow).Value

The problem I'm having is it's including a bunch of blank cells in the list. I do have one blank cell at the top of the list but I dont need a bunch at the end.

Any suggestions?

Thanks.

 

[Fluff]

How about

LastRow = Sheets("SETTINGS").Cells(Rows.Count, "M").End(xlUp).row

 

[RedOctoberKnight]

Perfect. Thank you Fluff.

 

[Fluff]

You're welcome & thanks for the feedback.