ref rms macroku

Sub ambiltglff_61()
'
' ambiltglff_61 Macro
' Macro recorded 02/02/2010 by Administrator
'
Sheets("proses").Select

Range("a10").Select
Selection.AutoFilter
Range("A11:C11").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents
Range("C10").Select
Selection.AutoFilter
'
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\All Users\Documents\1 rc format jurnal lku\1 bni6e A.xls" _
, Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1)), TrailingMinusNumbers:=True
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(0, -5).Range("A1").Select
Selection.End(xlUp).Select
Selection.Copy
Windows("proses cek tgl upload.xls").Activate
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Windows("1 bni6e A.xls").Activate
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(0, -3).Range("A1").Select
Selection.Copy
Windows("proses cek tgl upload.xls").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Windows("1 bne A.xls").Activate
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(0, -13).Range("A1").Select
Selection.End(xlUp).Select
Selection.Copy
Windows("proses cek tgl upload.xls").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste

Windows("1 bne A.xls").Activate
ActiveWindow.Close



Selection.AutoFilter
End Sub