Livin404
Well-known Member
- Joined
- Jan 7, 2019
- Messages
- 743
- Office Version
- 365
- 2019
- Platform
- Windows
Greetings, my current macro is working as designed, bar one issue I cannot get under control. You will notice in the image a unnecessary Column F which is inserting #N/A. I could come up with a macro deleting the Column, but I have so many macros already. I think the problem is in the array. I much sooner adjust my current one. My current macro "Extract" is: Thank you!
VBA Code:
Sub Boarder()
Dim rngDB As Range
Dim rng2 As Range
Dim rng As Range, Target As Range
Dim a As Variant, b As Variant
Dim myDate As Date
Dim n As Long
Set rngDB = Range("b1", Range("d" & Rows.Count).End(xlUp))
Set rngDB = rngDB.SpecialCells(xlCellTypeBlanks)
rngDB.EntireRow.Insert
Set rng2 = rngDB.Offset(, 2)
a = Array("FLIGHT #", "A/C TYPE", "ETD")
b = Array("", "REMARKS")
With rng2
.Value = b
.Font.Size = 12
.Font.Name = "Times New Roman"
.Font.Bold = True
.Borders(xlEdgeBottom).LineStyle = xlContinuous '<~~cell's botton lines style
.Borders(xlEdgeBottom).Weight = xlMedium