You could simplify all of the blocks of code like this:
Cells(s, 10).Copy
Newbook.Activate
Newbook.Sheets("Current Invoice").Select
Nextrow = Cells(t, 2).Row
Cells(Nextrow, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues
Workbooks("Workbook2.xlsm").Sheets("Sheet1").Activate
To something like this instead (all three blocks, simplified to this):
Newbook.Sheets("Current Invoice").Cells(t, 2).Value = Cells(s, 10).Value
Newbook.Sheets("Current Invoice").Cells(t, 3).Value = Cells(s, 8).Value
Newbook.Sheets("Current Invoice").Cells(t, 7).Value = Cells(s, 11).Value
You could also simplify all of this:
If Cells(s, 9) = 1001 Then 'Formula for Life, AD & D, ASI, CI'
Newbook.Activate
Newbook.Sheets("Current Invoice").Select
Prem = (Cells(t, 2) * Cells(t, 7)) / 1000
Cells(t, 9).Value = Prem
Workbooks("Workbook2.xlsm").Sheets("Sheet1").Activate
ElseIf Cells(s, 9) = 1103 Then 'Formula for LTD'
Newbook.Activate
Newbook.Sheets("Current Invoice").Select
Prem = (Cells(t, 2) * Cells(t, 7)) / 100
Cells(t, 9).Value = Prem
Workbooks("Workbook2.xlsm").Sheets("Sheet1").Activate
ElseIf Cells(s, 9) = 1104 Then 'Formula for STD'
Newbook.Activate
Newbook.Sheets("Current Invoice").Select
Prem = (Cells(t, 2) * Cells(t, 7)) / 10
Cells(t, 9).Value = Prem
Workbooks("Workbook2.xlsm").Sheets("Sheet1").Activate
ElseIf Cells(s, 9) = 2112 Then 'General Formula'
Newbook.Activate
Newbook.Sheets("Current Invoice").Select
Prem = Cells(t, 2) * Cells(t, 7)
Cells(t, 9).Value = Prem
Workbooks("Workbook2.xlsm").Sheets("Sheet1").Activate
End If
To this:
Dim wsInvoice as Worksheet
Set wsInvoice = Newbook.Sheets("Current Invoice") 'You could move these lines the the
' beginning of your code and replace
' all references to NewBook.Sheets("CurrentInvoice") with wsInvoice
With wsInvoice
Select Case Cells(s, 9)
Case 1001 'Formula for Life, AD & D, ASI, CI'
Prem = (.Cells(t, 2) * .Cells(t, 7)) / 1000
Case 1103 'Formula for LTD'
Prem = (.Cells(t, 2) * .Cells(t, 7)) / 100
Case 1104 'Formula for STD'
Prem = (.Cells(t, 2) * .Cells(t, 7)) / 10
Case 2112 'General Formula'
Prem = (.Cells(t, 2) * .Cells(t, 7))
End Select
.Cells(t, 9).Value = Prem
End With