We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Sub CopyTradeHistory() Dim wks As Worksheet Dim vSheets() As Variant Dim vSheetname As Variant Dim rngSrc As Range vSheets = Array("pm", "rm") On Error Resume Next Application.DisplayAlerts = False Application.ScreenUpdating = False For Each vSheetname In vSheets Set wks = ActiveWorkbook.Worksheets(vSheetname) Set rngSrc = wks.Cells.Find("Account Trade History") Set rngSrc = wks.Range(rngSrc, rngSrc.End(xlDown).End(xlDown).Offset(0, 11)) ActiveWorkbook.Worksheets(vSheetname & "_output").Delete Set wks = ActiveWorkbook.Worksheets.Add wks.Name = vSheetname & "_output" rngSrc.Copy wks.Range("A1") Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.