Selecting rows from Long

[Lallo]

I have this piece of code, finding the last row with data in columns A through D:


Dim LR As Long
LR = Columns("A:M").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row


What I want to do next is to select rows LR+1 through row 600, i.e. everything below the last row down to row #600.

What's the code for this?

Tried this, but it doesn't work:


LR = LR + 1

Range(LR:600").Select


Any ideas?

 

[VoG]

Try

Rows(LR + 1 & ":600").Select

 

[MrKowz]

Try:

Rows(LR+1 & ":600").Select

 

[Lallo]

Cheers! Works like a charm!

Now I have another problem though:

I want to hide certain columns; B, D and F, as well as the rows selected as per above.

Here's the code (part of longer code):

Sheets.Add.Name = "shttemp"


Sheets("Sheet3").Select

Dim LR As Long
LR = Columns("A:A").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

With ActiveSheet
Sheets("Sheet3").Select
Range("B:B, D:D, F:F").Select

Selection.EntireColumn.Hidden = True

Rows(LR + 1 & ":600").Select
Selection.EntireRow.Hidden = True


Range("A3:M500").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("shttemp").Select
Range("A1").Select
ActiveSheet.Pictures.Paste.Select

End With

Sheets("Sheet3").Select
Range("B:B, D:D, F:F").Select
Selection.EntireColumn.Hidden = False

Sheets("Sheet3").Select
Rows(LR + 1 & ":600").Select
Selection.EntireRow.Hidden = False

Sheets("shttemp").Select

Now, it works with the rows, but not with the columns. i.e it pastes all the columns, even the hidden ones. (the columns worked before I started hiding the rows)

Ideas?