title: how to select the top of a column in Excel
body: <p>I have a spreadsheet that records dates of musical works rehearsed by a choir. Column A list the works and columns C,D,etc the date. I place a figure 1 in the cell that corresponds to the work and date. eg</p>
  
  <pre><code>   A          B        C      D       E        
  1                   05 Jan  12 Jan  19 Jan
  2 Song 1                1
  3 Song 2                1       1       1
  4 Song 3                        1       1
  </code></pre>
  
  <p>I run simple totals of the number of times a song has been rehearsed but would like to automatically copy into column B the date on which the song was last rehearsed i.e. for song 2 "12 Jan".  The spreadsheet has many date columns and over 200 songs.</p>
  
  <p>The following Macro works for songs 1 and 2 but not for song 3 when it returns the figure 1 from cell E3</p>
  
  <p><strong>Keyboard Shortcut: Ctrl+a</strong></p>
  
  <pre><code>ActiveCell.Select
  Selection.End(xlToLeft).Select
  Selection.End(xlUp).Select
  Selection.Copy
  Range("L2").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  
  Range("L13").Select
  
  End Sub
  </code></pre>
  
  <p>How can I modify it to work on every song?  I'd appreciate advice.</p>