Excel vba set styl in new sheet with a table : How do I rectify this code?

    Sub test()
    Sheets("new").DeleteSheets.Add.Name = "new"
    ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(3, 3)) = "f"
    ActiveSheet.ListObjects.Add(xlSrcRange, Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(3, 3)), , xlYes, , "TableStyleMedium7").Name = "sk"
    End Sub