Macro select all but last row

[room7]

I attached a file with raw data and my desired results.
Here is the macro I am using but it doesnt work when there are different number of transactions

Sub SplitDate()
'
' SplitDate Macro
'

'
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:A45").Select
Selection.TextToColumns Destination:=Range("G2"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(10, 1)), TrailingMinusNumbers:=True
Range("A2:H45").Select
ActiveWindow.SmallScroll Down:=18
Selection.Copy
End Sub

How do I make the macro work when there are a different number of lines of transactions(in this example there are 45, other moths there are more or less)?

[patel45]

Please Login or Register  to view this content.

[room7]

works. Thanks