Formatting Cells

[ai1094]

I have the current VBA code below:

Range("N82:S82").Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With

I am trying to only fill the selected range up until the last row of data MINUS ONE (-1) row. Is there a simple way to execute this code?
*Last row of data can be found in Col A

 

[Fluff]

Try

Range(Selection, Selection.End(xlDown)[COLOR=#ff0000].Offset(-1)[/COLOR]).Select

 

[ai1094]

It still fills the range of cells until the very last row excel goes up to (millions). I need it to calculate the last row that can be found in Col A

Try

Range(Selection, Selection.End(xlDown)[COLOR=#ff0000].Offset(-1)[/COLOR]).Select

 

[Fluff]

Ok, how about

Sub ai1094()
With Range("N82:S" & Range("A" & Rows.Count).End(xlUp).Offset(-1).Row).Interior
   .Pattern = xlSolid
   .PatternColorIndex = xlAutomatic
   .ThemeColor = xlThemeColorAccent4
   .TintAndShade = 0.399975585192419
   .PatternTintAndShade = 0
End With
End Sub

 

[ai1094]

This is great. Thank you!

Ok, how about

Sub ai1094()
With Range("N82:S" & Range("A" & Rows.Count).End(xlUp).Offset(-1).Row).Interior
   .Pattern = xlSolid
   .PatternColorIndex = xlAutomatic
   .ThemeColor = xlThemeColorAccent4
   .TintAndShade = 0.399975585192419
   .PatternTintAndShade = 0
End With
End Sub

 

[Fluff]

You're welcome & thanks for the feedback