Private Sub CommandButton1_Click()
Windows("Book1.xls").Activate
Range("A1:K1").Select
Selection.AutoFilter
Range("D:D,H:H,I:I,J:J").Select
Range("J1").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("E:E,F:F").Select
Range("F1").Activate
Selection.Style = "Comma"
Selection.AutoFilter Field:=8, Criteria1:="RU"
Selection.AutoFilter Field:=1, Criteria1:="00001"
Range("B2:K2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Unapplied Cash Template.xls").Activate
Sheets("Austria").Select
Range("A5").Select
ActiveSheet.Paste
Sheets("Denmark").Select
Sheets.Add
Windows("Unapplied Cash last.xls").Activate
Range("F2:M2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Unapplied Cash Template.xls").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="last01", RefersToR1C1:="=Sheet1!R1C1:R36C8"
Sheets("Austria").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "=COUNT(Sheet1!C[-1])"
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Sheets("Sheet1").Select
Range("B44").Select
Windows("Book1.xls").Activate
Selection.End(xlUp).Select