Vba code to copy/move 12 sheets to master sheets

Hi tieyanna

Welcome to the Forum!!

Try this Code

Option Explicit

Sub Get_True()
  Dim ws As Worksheet, ws1 As Worksheet
  Dim rng As Range
  Dim LR As Long, LR1 As Long, x As Long

  Set ws = Sheets("Aging 2014")

  Application.ScreenUpdating = False
  With ws
    .UsedRange.Offset(8, 0).ClearContents
  End With

  For Each ws1 In ThisWorkbook.Sheets
    If Not ws1.Name = ws.Name Then
      With ws1
        LR1 = .Range("A" & .Rows.Count).End(xlUp).Row
        .Range("A8:R" & LR1).AutoFilter Field:=18, Criteria1:="TRUE"
        Set rng = .AutoFilter.Range
        x = rng.Columns(18).SpecialCells(xlCellTypeVisible).Count - 1
        If x >= 1 Then
          LR = ws.Cells.Find("*", ws.Cells(Rows.Count, Columns.Count), SearchOrder:=xlByRows, _
                             SearchDirection:=xlPrevious).Row + 1
          .Range(.Cells(9, 1), .Cells(LR1, 18)).Copy
          ws.Range("A" & LR).PasteSpecial
          Application.CutCopyMode = False
        End If
        .AutoFilterMode = False
      End With
    End If
  Next ws1
  Application.ScreenUpdating = True
End Sub

Hi tieyanna

Sure, you can do that. Create a Forms Control Command Button and assign the Code to that Button. Need help with this let me know.

Hi tieyanna

Great...glad it works for you.

You're welcome...glad I could help.

If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.