Code to check if field already contains data ...???

[Uzzgee]

Evening All,

Hope someone can help me with the code below.

I am trying to change the code below so that it has the following rules :- if the sheet is empty then update with the new HEADER else if the 1st cell of the sheet is not empty (already contains a header value) then go to the next available blank row, and activate that cell.

Below is my own attempt ( I'm just new to excel VBA) but it doesn't appear to work.....

Any help is much appreciated.

Thanks

Public Sub InOut_Header()
If Parking_Survey.surveySheet.Cells(1, "A") = "" Then
    Parking_Survey.surveySheet.Cells(1, "A").Value = "Registration"
    Parking_Survey.surveySheet.Cells(1, "B").Value = "Time"
    Parking_Survey.surveySheet.Cells(1, "C").Value = "Class"
    Parking_Survey.surveySheet.Cells(1, "D").Value = "Type"
Else
    Dim Lastrow As Long
    Lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    End If
End Sub

[fredlo2010]

Last blank row or last row in the data ?

[fredlo2010]

See if this helps

Public Sub InOut_Header()

Dim Lastrow As Long
Lastrow = Cells(Rows.Count, 1).End(xlUp).Row

With Sheets("surveySheet")
    If .Range("A1") = vbNullString Then
    
        .Range("A1").Resize(1, 4).Value = Array("Registration", _
                                                "Time", _
                                                "Class", _
                                                "Type")
    Else
        .Range("A" & Lastrow + 1).Activate
    End If
        
End With

End Sub

Thanks

[Uzzgee]

Hi fredlo2010,

thanks for your reply.

To answer your first question, if there is a value in the 1st cell I would like the system to go to the next available blank row.

With regards to the coding you have provided, i am getting a " RUNTIME ERROR 9, SUBSCRIPT IS OUT OF RANGE "

When I go onto the debug code it step to the following line :- With Sheets("surveySheet")

Hope you can assist.

Thanks