- Jan 7, 2019
- Office Version
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!
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