Find the first blank row

[Flavien]

Hello Everybody,

I'd like to paste information into a table, but unfortunately either the lines are written on top of each other

DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row

or there is always a blank row at the top of the table (Row 2).

DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row + 1

Do you know how to write from the row 2, please?

Sub essai2()

    
    ThisWorkbook.Worksheets("Feuil2").Activate
    
'   Find the last row
    DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
    
'   Display the number of the last row
    MsgBox "The last blank row is : " & " " & DerniereLigne


End Sub

Thanx a lot for your help

 

[skillilea]

This may be what you are asking

First Blank Row

 

[Flavien]

This may be what you are asking

First Blank Row

Thank you for your help.
I just tried but there is something that must be escaping me. I will try again tomorrow.

 

[Alex Blakenburg]

Something like this might work for you:

Sub essai2()

    Dim ws As Worksheet
    Dim DerniereLigne As Long
    
    Set ws = ThisWorkbook.Worksheets("Feuil2")
    
'   Find the last row
    DerniereLigne = ws.Range("A" & Rows.Count).End(xlUp).Row
    ' The cell should only be empty if there is nothing in the column
    If ws.Cells(DerniereLigne, "A").Value <> "" Then DerniereLigne = DerniereLigne + 1
    
        
'   Display the number of the last row
    MsgBox "The last blank row is : " & " " & DerniereLigne

End Sub

 

[NoSparks]

Or maybe this seeing you have a table and the headers must be in row 1

Sub essai2()

    Dim ws As Worksheet
    Dim firstblankrow As Long
    
    Set ws = ThisWorkbook.Worksheets("Feuil2")
    
'   Find first blank row in column A
    firstblankrow = ws.Columns(1).Find(What:="", SearchDirection:=xlNext, SearchOrder:=xlByRows).Row
    
    MsgBox "The first blank row is :   " & firstblankrow
    
End Sub

 

[Flavien]

Something like this might work for you:

Sub essai2()

    Dim ws As Worksheet
    Dim DerniereLigne As Long
   
    Set ws = ThisWorkbook.Worksheets("Feuil2")
   
'   Find the last row
    DerniereLigne = ws.Range("A" & Rows.Count).End(xlUp).Row
    ' The cell should only be empty if there is nothing in the column
    If ws.Cells(DerniereLigne, "A").Value <> "" Then DerniereLigne = DerniereLigne + 1
   
       
'   Display the number of the last row
    MsgBox "The last blank row is : " & " " & DerniereLigne

End Sub

Hi Alex,
It's been a while, but thank you for your answer!
Have a nice day!

 

[Alex Blakenburg]

Thanks for coming back and closing the loop on this. Glad we could help.