Relative Reference

[smund]

How can I change "263" ("$G$5:$K$263")", in the formula for the number of LastRow?

LastRow = Cells(65000, 1).End(xlUp).Row

Range("G5:K5").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$G$5:$K$263"), , xlNo).Name = _
"NewCase"

Thanks.

 

[Scott Huish]

First off, it's very rare that you need to Select anything in VBA. You can work directly with ranges. Is this what you want?

Sub test()
Lastrow = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$G$5:$K$" & Lastrow), , xlNo).Name = "NewCase"
End Sub

 

[smund]

Very Good. It functions correct.