VB Coding for Excel

I have a Command Button in WorkSheet1 and associated VB codes.
WorkSheet2 contains data stored from time to time.
I want to add data from worksheet1 to worksheet2.
The code when executed to find the first empty row
in WorkSheet2, does not work.
Rows in WorkSheet1, in which the Command Button
is located is being searched for the empty row.
How can I manage this?

Hello Nkrb1941,

Here is a macro that will search any worksheet you want and return the first empty row found ( all cells in the row must be empty). If no empty rows are found it returns a zero.
_________________________________________________________________

Public Function FirstEmptyRow(ByVal Worksheet_Name As String) As Long

Dim I As Long
Dim J As Long
Dim LastCol As Long
Dim LastRow As Long

With Worksheets(Worksheet_Name)
LastRow = .Rows.Count
LastCol = .Columns.Count
For J = 1& To LastRow
For I = 1& To LastCol
If IsEmpty(.Cells(J, I)) = False Then Exit For
Next I
If I = 257& Then
FirstEmptyRow = J
Exit Function
End If
Next J
End With

End Function
_________________________________________________________________

To use it in your code:

EmptyRow = FirstEmptyRow("Sheet2")

Hope you can use this,
Leith Ross