Sub Macro_Extract()
'
' Macro1 Macro
'
'
ChDir "Z:\"
Workbooks.OpenXML Filename:="Z:\test_macro.cpf", LoadOption:= _
xlXmlLoadImportToList
Columns("A:BQ").Select
Selection.Delete Shift:=xlToLeft
Columns("O:O").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
j = Selection.End(xlDown).Row
Rows("2:" & j - 1).Select
Selection.Delete Shift:=xlUp
Range("J65000").End(xlUp).Select
k = ActiveCell.Row
For i = 2 To k
If IsEmpty(Cells(i, 10)) = False Then
Cells(i, 10).Select
Selection.Copy
v = Selection.Value
ActiveCell.ClearContents
ActiveCell.Value = v
End If
Next