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
Bookmarks