Sub qqq()
Dim Sht As Worksheet
    For Each Sht In ThisWorkbook.Sheets
        If Sht.Name Like "*-*" Then
            'Здесь действия с листом
        End If
    Next
End Sub

Sub макрос2()
Dim LastRow As Long
    With Sheets("лист1")
        LastRow = .Cells(.Rows.Count, 19).End(xlUp).Row + 1
        If LastRow < 18 Then LastRow = 18
    '    Range("A1").Copy .Range(.Cells(18, 19), .Cells(LastRow, 19))
        .Cells(LastRow, 19) = Range("A1").Value
    End With
End Sub