title: Code for Multiple Sheet/Active Sheet
body: <p>i'm currently working on a code that will copy data from one sheet to another (please see below),it currently works on one sheet, but now I want this code to work on multiple sheets or whatever sheet is active. Can you please assist me in modifying this code to work on multiple sheets.</p>
  
  <pre><code>Sub sbCopyRangeToAnotherSheet()
  Sheets("Sheet1").Select
  Range("A15:E188").Select
  Selection.ClearContents
  Range("A15").Select
  
  Sheets("FCI").Select
  Range("C51").Select
  
  'Copy the data
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.End(xlDown)).Select
  Selection.Copy
  'Activate the destination worksheet
  Sheets("Sheet1").Activate
  'Select the target range
  Range("A15").Select
  'Paste in the target destination
  Sheets("Sheet1").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.End(xlDown)).Select
  End Sub
  </code></pre>