Sub Lukvarer()
    Dim Month As Integer
    Dim Answer As Integer
    Måned = Sheets("APL varer").Cells(1, "K").Text
    Range("Compass_Group_Danmark_A_S_Item[[#Headers],[No_]]").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("B1:D100000").Select
    Selection.Copy
    Sheets("Lukkeskema").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Sheets("Lukkeskema").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "F:\Purchasing\DK\9. Procurement & Finance_FORTROLIGT DATA\MOG\Vare lukket, pga. ingen køb\" & Måned & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Application.DisplayAlerts = True
    Workbooks.Open Filename:="F:\Purchasing\DK\APL Lister\TOTAL APL LISTE TIL AUT. KØRSEL\MOG APL.xlsm"
    Workbooks("MOG APL.xlsm").Activate
    Flag = 0
    Count = ActiveWorkbook.Worksheets.Count
        For I = 1 To Count
            WS_Name = ActiveWorkbook.Worksheets(I).Name
            If WS_Name = "Slettes" Then Flag = 1
        Next I
            If Flag = 1 Then
            Sheets("Slettes").Delete
            Workbooks("MOG.xlsm").Activate
    Sheets("Lukkeskema").Select
    Range("B:B").Copy
    Sheets("Slettes").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Slettes").Copy Before:=Workbooks("MOG APL.xlsm").Sheets("NAV")
    Else
    Workbooks("MOG.xlsm").Activate
    Sheets("Lukkeskema").Select
    Range("B:B").Copy
    Sheets("Slettes").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Slettes").Copy Before:=Workbooks("MOG APL.xlsm").Sheets("NAV")
    End If
End Sub