Returning value to next empty row that is not hidden

[shepa1nj]

I am scraping an email for certain values that will return in my excel spreadsheet. If one of the values is hidden the next email that is scraped replaces the values in the hidden row instead of in the next blank row. Does anyone have any ideas on how to skip the hidden values and return the scrapped info to the first blank row?
The code I have for retrieving the first available row is

'Retrieving the first available row to put message in
Line = .Range("A65000") .End (x1Up) .Row + 1

Any thoughts?

Noah

 

[Roderick_E]

I am scraping an email for certain values that will return in my excel spreadsheet. If one of the values is hidden the next email that is scraped replaces the values in the hidden row instead of in the next blank row. Does anyone have any ideas on how to skip the hidden values and return the scrapped info to the first blank row?
The code I have for retrieving the first available row is

'Retrieving the first available row to put message in
Line = .Range("A65000") .End (x1Up) .Row + 1

Any thoughts?

Noah

Try this...

lastrow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

 

[JLGWhiz]

Or something like this

Sub t()
Dim line As Long
line = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("E2").Copy
While Rows(line).Hidden = True
    line = line + 1
Wend
Range("A" & line).PasteSpecial xlPasteValues 'or whatever you it is you do
End Sub