Sub ki173()
Sheets("Sheet1").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    cend = ActiveCell.Row
'指定以外を非表示
 For i = 2 To cend
        If InStr(1, Cells(i, 2), "-A", 1) > 0 Then
           GoTo pas1
        ElseIf InStr(1, Cells(i, 2), "-C", 1) > 0 Then
           GoTo pas1
        Else
           Rows(i).EntireRow.Hidden = True
        End If
pas1:
 Next
'表示行選択
    Range(Cells(1, 1), Cells(cend, 3)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
'シ−ト"mySheetA"を追加しそこに貼り付け
    Sheets.Add.Name = "mySheetA"
    ActiveSheet.Paste
    Range("C1").Select
End Sub

Sub ki173a()
Sheets("Sheet1").Select
    Cells.Select
    Selection.RowHeight = 14.25
    Range("A1").Select
Sheets("mySheetA").Select
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
Sheets("Title").Select
End Sub