Enter Data from userform into cells starting from specific cell

**jtemp57** · 02-03-2014, 05:30 PM

I need to add something to the code below to have my first row of data entered into cell "Q8". As it is now the data is starting on row Q9 instead of Q8, but the rest of it is filling in correctly.

Dim RowCount As Long, sht As Worksheet
Set sht = Sheets("WorkSheet-1")

With sht
    'RowCount = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        If .Range("A8").Value = "" Then
            RowCount = 8
        ElseIf .Range("A8").Value <> "" And .Range("A9").Value = "" Then
            RowCount = 9
        Else
            RowCount = .Range("A8").End(xlDown).Row
            
        End If
        .Range("A" & RowCount).Offset(0, 16) = Me.ComboBox_IsoMethodSelected.Value
End With

Thanks for your help

**natefarm** · 02-04-2014, 04:26 PM

Your code worked fine when I ran it, though it seems more complicated than necessary. The following does the same thing, assuming A7 or A8 will have a value:

Dim RowCount As Long
With Sheets("Worksheet-1")
    RowCount = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    .Range("Q" & RowCount).Value = Me.ComboBox_IsoMethodSelected.Value
End With