'====================================================
'- TRANSFER DATA FROM A SHEET TO MASTER
'- DEPENDING ON A CELL IN THE ROW
'- uses an x in column A
'====================================================
Sub DataToSummary()
    Dim FromSheet As Worksheet
    Dim FromRow As Long
    Dim LastRow As Long
    '-
    Dim ToSheet As Worksheet
    Dim ToRow As Long
    '-------------------------------------------------
    Application.Calculation = xlCalculationManual
    Set ToSheet = ActiveWorkbook.Worksheets("Summary")
    '- find next empty Summary row
    ToRow = ToSheet.Range("A65536").End(xlUp).Row + 1
    '-------------------------------------------------
    Set FromSheet = ActiveSheet
    LastRow = FromSheet.Range("A65536").End(xlUp).Row
    '-------------------------------------------------
    '- loop through rows
    For FromRow = 1 To LastRow
        If FromSheet.Cells(FromRow, 1).Value = "x" Then
            ToSheet.Cells(ToRow, 1).Value = _
                    FromSheet.Cells(FromRow, 1).Value
            ToSheet.Cells(ToRow, 2).Value = _
                    FromSheet.Cells(FromRow, 2).Value
            ToSheet.Cells(ToRow, 3).Value = _
                    FromSheet.Cells(FromRow, 3).Value
            ToRow = ToRow + 1
        End If
    Next
    '-------------------------------------------------
    MsgBox ("Done")
    Application.Calculation = xlCalculationAutomatic
End Sub
'-----------------------------------------------------