radonwilson
New Member
- Joined
- Jun 23, 2021
- Messages
- 49
- Office Version
- 2019
- Platform
- Windows
I have written my questions on screenshot, please have a look.
VBA Code:
Sub cleanup()
Dim tbl As Range
Dim ws As Worksheet
Set tbl = Range("a1").CurrentRegion
Set ws = ActiveSheet
ws.Name = "Transactions"
Rows("1:10").Delete
Range("D:D").Select
Selection.Cut
Range("A:A").Select
Selection.Insert
Range("C:E").Select
Selection.Insert
Range("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth
Range("C:E").Delete
Cells.Replace "Electronic Transactions (Credit Card/Net Banking/GC)", "ET"
Cells.Replace "Cash On Delivery Transactions and Non-Transactional Fees", "COD"
tbl.Select
Selection.WrapText = False
ws.ListObjects.Add(xlSrcRange, tbl, , xlYes).Name = "trans"
ws.ListObjects("trans").TableStyle = ""
ws.ListObjects("trans").HeaderRowRange.Font.Bold = 1
End Sub