title: New to VBA: Compile Error Invalid Qualifier.
body: <p>This code is designed to take a spreadsheet of raw data, omit several columns, and reformat what remains. I welcome any and all critiques of the code as I am new to VBA and know nothing. The key problem is at the end of the code on the line indicated with astriscs below. This is the spot where the "Compile Error: Invalid Qualifier" comes up. I'm trying to apply the formatting to Columns B and F, but I only want it to go as far as the last row of date. The last row of data will vary from one sheet to the next.</p>
  
  <p>When the error is triggered, the debugger highlights the word "count".</p>
  
  <p>Thanks in advance for your help.</p>
  
  <pre><code>Sub Macro2()
  '
  ' Macro2 Macro
  '
  Union(Range("A:A"), Range("F:F"), Range("K:Q"), Range("S:V")).Delete
  Range("A1").Select
  ActiveCell.FormulaR1C1 = "FIRST"
  Range("B1").Select
  ActiveCell.FormulaR1C1 = "LAST"
  Range("C1").Select
  ActiveCell.FormulaR1C1 = "G"
  Range("D1").Select
  ActiveCell.FormulaR1C1 = "PHONE"
  Range("E1").Select
  ActiveCell.FormulaR1C1 = "ADDRESS"
  Range("F1").Select
  ActiveCell.FormulaR1C1 = "CITY"
  Range("G1").Select
  ActiveCell.FormulaR1C1 = "STATE"
  Range("H1").Select
  ActiveCell.FormulaR1C1 = "ZIP"
  Range("I1").Select
  ActiveCell.FormulaR1C1 = "MONTH"
  Range("J1").Select
  ActiveCell.FormulaR1C1 = "YEAR"
  Columns("e:h").Insert Shift:=xlToRight
  Columns("A:B").ColumnWidth = 12
  Columns("C:C").ColumnWidth = 2
  Columns("D:d").ColumnWidth = 13
  Columns("e:e").ColumnWidth = 0.38
  Columns("F:F").ColumnWidth = 5
  Columns("G:G").ColumnWidth = 11
  Columns("H:H").ColumnWidth = 0.38
  Columns("I:N").ColumnWidth = 14
  **Union(Range("B:B"),Range("F:F")).Rows.Count.End(xlUp).Row**
  Range("B1").Activate
  With Selection.Interior
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  .ThemeColor = xlThemeColorAccent5
  .TintAndShade = 0.599993896298105
  .PatternTintAndShade = 0
  End With
  
  
  End Sub 
  </code></pre>