Private Sub CommandButton1_Click()
Dim riga, nptw As Integer
Dim rigst, rigend, temp, Company As String
riga = 4
nptw = 0

' FIND THE NUMBER OF THE FIRST FREE RAW riga
Do Until Sheet1.Cells(riga, 1) = ""
riga = riga + 1
Loop
nptw = Sheet1.Cells(riga - 1, 1) + 1
Sheet1.Cells(riga, 1) = nptw
'linpt = Len(StrPTW)

Sheet1.Cells(riga, 2).Interior.ColorIndex = 36
Sheet1.Cells(riga, 2) = "Open"
Sheet2.Cells(1, 17) = nptw

Private Sub CommandButton3_Click()

Dim riga, nptw, rptw, Intresp, linpt, I As Integer
Dim checkint As Boolean
Dim StrPTW As Variant
riga = 4
' Sheet1.Select
Do Until Sheet1.Cells(riga, 1) = ""
riga = riga + 1
Loop
StrPTW = InputBox("Insert the number of PTW", "Read PTW")
linpt = Len(StrPTW)


If StrPTW <> "" Then

'Check if the input is integer
checkint = True
For I = 1 To linpt

If Asc(Mid(StrPTW, I, 1)) < 48 Or Asc(Mid(StrPTW, I, 1)) > 57 Then
    checkint = False
    I = linpt
End If

Next

'In case the input contains oly integer digits can be converted in number
If checkint = True Then

nptw = Val(StrPTW)

If nptw <= riga - 4 Then
rptw = nptw + 3