Code to always add new sheet after the last sheet

[hocs]

Hi,

i need some clue to do the following: whenever the macro is run, it will add a new worksheet as the last sheet, nomatter how many existing worksheets there are (i.e. the right most sheet tab will be this new added sheet)

Sub AddLastSheet()
Dim ws as Worksheet
Set ws = worlsheets.Add (ALWAYS AT AS THE LAST WORKSHEET)
End Sub

Thanks!

 

[GTO]

    Set ws = Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))

 

[hocs]

Perfect! Thanks GTO!

 

[GTO]

You are most welcome

 

[hocs]

    Set ws = Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))

the next step i wish to do: after adding new sheet, i need to copy the previous sheet content into this new added sheet. cell F3 of the previous sheet is invoice number but for F3 of this new added sheet, this number will have to be increased by 1.
Please advise!
Thanks!

 

[id107]

Sub test()
 
    Sheets(ThisWorkbook.Worksheets.Count).Copy After:=Sheets(ThisWorkbook.Worksheets.Count)
    Range("F3").Value = Range("F3").Value + 1
    ActiveSheet.Name = "Invoice " & Range("F3").Value
 
End Sub

Edit: was previously copying current sheet. Not the last one.

 

[arviy2k]

You could copy the entire worksheet.

ActiveSheet.Previous.Select
Range("First cell:Last cell").Copy
ActiveSheet.Next.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
        :=False, Transpose:=False

Regards,
ArviY2k

 

[arviy2k]

I forgot to mention.. Replace first cell and last cell in my code in the above post with your data range.