Table Placement with VBA

[Guzzlr]

Hello All.
I have the code below, which places the table on A1:M.
I'm having troubles placeing the table on A3:M. when I change the code of $A$1 : M, to $A$3:M. excel places the table on A1:M with crazy headers...basically if is not working.
So how do I get the table on A3:M, so I have 2 rows above that are blank?
Thanks for the help

LastRow = Range("A:A").Cells.Find("*", _
        SearchOrder:=xlByRows, searchdirection:=xlPrevious).Row
'        MsgBox "The Last Non-Blank Row Is " & LastRow



'Adding Table
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:M" & LastRow), , xlYes).Name = _
"Table6"
Range("Table6[#All]").Select

 

[igold]

It works for me as written, when you change A1 to A3. Are Rows 1 & 2 empty before the code is run.

 

[Guzzlr]

It works for me as written, when you change A1 to A3. Are Rows 1 & 2 empty before the code is run.

Yes because the report out starts as a blank sheet, and then data with headers is paste into cell A1, then report is run, beguining with A1

 

[igold]

I don't see your sheet. I took a sheet populated with fictitious data in the range of A1:P41. Your code created a table at A3:M41, with the fictitious data.

 

[Guzzlr]

I don't see your sheet. I took a sheet populated with fictitious data in the range of A1:P41. Your code created a table at A3:M41, with the fictitious data.

Thats what it is doing when I use A3

 

[igold]

How about a before picture of the same sheet... It appears as if it is doing what your code says. What is your expected result.

 

[Guzzlr]

I just took the easy way out and inserted two rows on top, now it works...

'Shift Two Rows Down
Rows("1:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

 

[igold]

I am glad you got it squared away.