Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim sSheetName As String
- Dim sDataRange As String
- sSheetName = ActiveSheet.Name
- sDataRange = Selection.Address
- Range("A2015:A2040").Select
- Selection.TextToColumns Destination:=Range("A2015"), DataType:=xlFixedWidth, _
- FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(15, 1), Array(39, 1), Array(53, 1), _
- Array(60, 1), Array(73, 1), Array(94, 1), Array(108, 1)), TrailingMinusNumbers:=True
- Worksheets("Sheet1").Range("A2015:P2040").Columns.AutoFit
- Range("A2015:A2018").Select
- Application.Run "PERSONAL.XLSB!MergingCells"
- Range("B2015:B2018").Select
- Application.Run "PERSONAL.XLSB!MergingCells"
- Range("C2015:C2018").Select
- Application.Run "PERSONAL.XLSB!MergingCells"
- Range("D2015:D2018").Select
- Application.Run "PERSONAL.XLSB!MergingCells"
- Range("E2015:E2018").Select
- Application.Run "PERSONAL.XLSB!MergingCells"
- Range("F2015:F2018").Select
- Application.Run "PERSONAL.XLSB!MergingCells"
- Range("G2015:G2018").Select
- Application.Run "PERSONAL.XLSB!MergingCells"
- Range("H2015:H2018").Select
- Application.Run "PERSONAL.XLSB!MergingCells"
- Range("I2015:I2018").Select
- Application.Run "PERSONAL.XLSB!MergingCells"
- ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2015:$I$2040"), , xlYes).Name _
- = "Table15"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement