Lookup/Identify next number,Paste into cell

Hello,I need help with a identifying the next number!

When pressing the Save button on sheet1-Form(Code below),lookup the last number that was used in sheet2-Database Column B(say 8) and put the next number (9) in Sheet1-Form Cell B3.

Option Explicit
Dim wsDatabase As Worksheet
Dim wsForm As Worksheet
Dim rNextCl As Range
Sub Save_Data()

'Set variables
Set wsDatabase = Sheet2
Set wsForm = Sheet1
'find the next empty row for data input
Set rNextCl = wsDatabase.Cells(65536, 1).End(xlUp).Offset(1, 0)

'enter the data using Offset to find next Column
'note use With....End With to let Excel that the following lines are working with rNextCl

With rNextCl
.Value = wsForm.Cells(2, 2).Value
.Offset(0, 1).Value = wsForm.Cells(3, 2).Value
.Offset(0, 2).Value = wsForm.Cells(4, 2).Value
.Offset(0, 3).Value = wsForm.Cells(5, 2).Value
.Offset(0, 4).Value = wsForm.Cells(6, 2).Value
.Offset(0, 5).Value = wsForm.Cells(7, 2).Value
.Offset(0, 6).Value = wsForm.Cells(8, 2).Value
.Offset(0, 7).Value = wsForm.Cells(9, 2).Value
End With

'confirm data transferred
MsgBox "Data transferred successfully to Database" & vbCrLf & "", vbInformation, "Data transfer"

'clear input cells, note use of Named Range
wsForm.Range("DataInput").ClearContents

'clear variables
Set wsDatabase = Nothing
Set wsForm = Nothing
Set rNextCl = Nothing

End Sub
TX>>>>G