Excel worksheets access using VBA

We tried with a program as below. It works in excel.

But when we try to use it in EB the second worksheet doesn't get activated. Also data from first worksheet is copied in second worksheet and erased from first worksheet

dim sheet as string

'
Sheet = activeworksheet
With activeworksheet
ActiveCell.FormulaR1C1 = "abcd"
Range("D5".Select
ActiveCell.FormulaR1C1 = "efgh"
Range("D8".Select
ActiveWorkbook.Save
If Sheet = activeworksheet Then
Sheets("Sheet1".Select
Range("C8".Select
ActiveCell.FormulaR1C1 = "annn"
Range("D9".Select
ActiveCell.FormulaR1C1 = "bbbb"
Range("D4".Select
ActiveCell.FormulaR1C1 = "cccc"
Range("E6".Select
ActiveWorkbook.Save
End If
End With

Do let me know the solution at the earliest