writing formula in range on each sheet via array

Hi,

I am trying to write a formula on each sheet in a range which is not clearly defined on each sheet on the book. excel is complaining my range object and I am not seeing it today (coding too much....). Anyone can point me there?

Sub GenerateAmenities()
Dim ws As Worksheet

For Each ws In Worksheets
    Select Case ws.Name
    Case "Report", "Amenities"
         ' do nothing
    Case Else
        ws.Range(("N2"), Range("A65536").End(xlUp).Offset(0, 13)).Select
        Selection.FormulaR1C1 = "=RC[-4]&"" - ""&RC[-1]"
    End Select
    
Next ws

End Sub

thanks,
A2k