Macro To Add New Worksheet

I hesitate to reply as my VB is not the best, but there are no other replies..

Try adding

Dim rowNumber as Integer
' find the row where the total is – 
For Each c In Worksheets("LastSheet ").Columns(1).Cells
   If c.Value = "Total" Then
    rowNumber = c.Row
  End If
Next c

' copy the total
Worksheets("LastSheet ").Columns(1).Cells(rowNumber,5).Copy

and then paste into cell on the new sheet


Hope this helps
Willow