title: VBA to Match, Copy Row, then Paste in a Column without blank cells from ComboBox value
body: <p>I have a workbook that I use for delivery notes, sheet1 is the delivery note template and sheet2 is customer name and address data. There is an ActiveX ComboBox on sheet1 which is populated with the client names so when I select a client this brings up the their name and address in the delivery note template, cells [C5:C11]. I have code for the combobox and this works fine but in more than 70% of despatches I need to edit the address details because of different areas, departments or buildings etc so this macro I am using is now a waste of time because I cannot edit the data. I do not want to finish up with a database of 300 addresses when perhaps 60 will do the job. So I think the solution is to copy and paste the data which will then allow editing. I have tried to edit my existing code to make it copy and paste but keep getting various errors so would appreciate any help or new ideas.</p>
  
  <pre><code>Private Sub ComboBox1_Change()
  ' CopyNameAddress Macro
      Dim strCustomer As String
      Dim iRow As String
      Dim rngDetails As Range
      strCustomer = ComboBox1.List(ComboBox1.ListIndex)
  With ThisWorkbook
      With .Sheets("Sheet2").Select
      iRow = Application.Match(strCustomer, .Range("B3:B" &amp; .Range("B" &amp; .Cells.Rows.Count).End(xlUp).Row), 0) + 2
              Set rngDetails = .Range("C" &amp; iRow &amp; ":H" &amp; iRow).Select
              Selection.SpecialCells(xlCellTypeConstants, 23).Select
              Selection.Cop
          End With
      With .Sheets("Sheet1").Select
      Range("C5").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
          End With
      End With
  End Sub
  </code></pre>