title: Fill down blank cells in multiple columns in specific sheets
body: <p>I have the following columns <br>
  <img src="https://i.stack.imgur.com/0Z3kT.png" alt="enter image description here">
  <br></p>
  
  <pre><code>Score   Name    Last Name
  5460    Name1   Lastname1
  2620        
  340     
  470     
  3445    Name2   Lastname2
  1290        
  1170        
  7460    Name3   Lastname3
  3520        
  360     
  1500        
  5048    Name4   Lastname4
  830     
  490     
  1883        
  620     
  1208        
  185     
  426     
  653     
  </code></pre>
  
  <p><br>
  I want to fill down the empty cells in <strong>columns B &amp; C</strong> until the last row with in <strong>Column A</strong> (which is <strong>row 21</strong> in this example). 
  <br>
  <strong>Result</strong>
  <br>
  <img src="https://i.stack.imgur.com/gUMwW.png" alt="enter image description here">
  <br></p>
  
  <pre><code>Score   Name    Last Name
  5460    Name1   Lastname1
  2620    Name1   Lastname1
  340     Name1   Lastname1
  470     Name1   Lastname1
  3445    Name2   Lastname2
  1290    Name2   Lastname2
  1170    Name2   Lastname2
  7460    Name3   Lastname3
  3520    Name3   Lastname3
  360     Name3   Lastname3
  1500    Name3   Lastname3
  5048    Name4   Lastname4
  830     Name4   Lastname4
  490     Name4   Lastname4
  1883    Name4   Lastname4
  620     Name4   Lastname4
  1208    Name4   Lastname4
  185     Name4   Lastname4
  426     Name4   Lastname4
  653     Name4   Lastname4
  </code></pre>
  
  <p><br>
  Currently I am trying to adapt this vba code:<br></p>
  
  <pre><code>Sub FillColBlanksSpecial()
  
  Dim wks As Worksheet
  Dim rng As Range
  Dim rng2 As Range
  Dim LastRow As Long
  Dim col As Long
  Dim lRows As Long
  Dim lLimit As Long
  
  Dim lCount As Long
  On Error Resume Next
  
  lRows = 2
  lLimit = 1000
  
  Set wks = ActiveSheet
  With wks
  
     col = .Range("b1,c1").Column
  
     Set rng = .UsedRange  'try to reset the lastcell
     LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
     Set rng = Nothing
  
      lCount = .Columns(col).SpecialCells(xlCellTypeBlanks).Areas(1).Cells.Count
  
      If lCount = 0 Then
          MsgBox "No blanks found in selected column"
          Exit Sub
      ElseIf lCount = .Columns(col).Cells.Count Then
          Do While lRows &lt; LastRow
              Set rng = .Range(.Cells(lRows, col), .Cells(lRows + lLimit, col)) _
                             .Cells.SpecialCells(xlCellTypeBlanks)
              rng.FormulaR1C1 = "=R[-1]C"
              lRows = lRows + lLimit
          Loop
      Else
          Set rng = .Range(.Cells(2, col), .Cells(LastRow, col)) _
                         .Cells.SpecialCells(xlCellTypeBlanks)
          rng.FormulaR1C1 = "=R[-1]C"
      End If
  End With
  
  End Sub
  </code></pre>
  
  <p><br> </p>
  
  <p><em>Question1</em>: this code only runs on <strong>Column B</strong>. How to run in in <strong>Column B &amp; C</strong>
  As you see in the code, I tried <code>col = .Range("b1,c1").Column</code>, but to no avail.</p>
  
  <p><em>Question2</em>: how to run this in sheets whose name end in <strong>-A</strong> and <strong>-B</strong> only in the same workbook?</p>
  
  <p>In the same workbook, I have hundrends of sheets, but I want to run this <strong>only</strong> in those ending in the above suffixes.
  Thanks.</p>