VBA to highlight range and format as a table

[jambog]

How to fix this VBA macro so it would highlight a range like A1 to the last row of column N and then format it as a table.
The number of rows will always vary, so I can’t name specific row number but I also don’t want more rows than required so I just want it to go to the last row in column N that has data in a cell.

Sub MakeTable()
    Dim tbl As ListObject
    Dim rng As Range

    Set rng = Range("A1:A" & LastRowColumnN)
    Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, rng, , xlYes)
    tbl.TableStyle = "TableStyleMedium15"
End Sub

I’ve tried the following, but I know nothing about VBA. I just found a similar one online and attempted to modify it for my needs, but I get a runtime error.

[mehmetcik]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

[mehmetcik]

Sub Macro1()

    LR = Cells(Rows.Count, 1).End(xlUp)(1).Row
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$N$" & LR), , xlYes).Name = "Table1"

End Sub

[jambog]

Thanks, that did the trick!