Cleaning up excel data (2 columns)

CleanUpData_2col.vb

Option Explicit
Sub CleanUpData()
	Dim i As Long
	Dim LastRow As Long

	'空白行を削除
	Range("A:A").Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

	'データの最終行 
	LastRow = Cells(Rows.Count, "A").End(xlUp).Row 

	'1行目から最終行までIf以下を繰り返す
	For i = 1 to LastRow
		'偶数行の場合は、値をB列に移動させる
		If i Mod 2 = 0 Then
			Cells(i, "A").Cut Cells(i-1,"B")
		End if
	Next i

	'もう一回、空白行を削除
	Range("A:A").Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub()