=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;СИМВОЛ(10);" ");СИМВОЛ(13);" ")

each Not List.Contains(list,[Наименование])

=СУММПРОИЗВ((МЕСЯЦ(A3:A22)=МЕСЯЦ(СЕГОДНЯ()))*(ГОД(A3:A22)=ГОД(СЕГОДНЯ())))

=СЧЁТЕСЛИМН(A3:C22;">="&ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(СЕГОДНЯ());1);A3:C22;"<"&ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(СЕГОДНЯ())+1;1))

'заменяем
    For lr = 1 To UBound(avArr, 1)
        s = avArr(lr, lToFindCol)
        If Len(s) Then 'если значение для замены не пустое
            Selection.Replace s, avArr(lr, lToReplaceCol), lLookAt
        End If
    Next lr

'заменяем
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Соответствия" Then
            For lr = 1 To UBound(avArr, 1)
                s = avArr(lr, lToFindCol)
                If Len(s) Then 'если значение для замены не пустое
                    ws.Cells.Replace s, avArr(lr, lToReplaceCol), lLookAt
                End If
            Next lr
        End If
    Next

Private Sub Workbook_Open()
    With ThisWorkbook.Sheets(1)
        .Activate
        .Range(.Cells(1, 3), .Cells(1, .Columns.Count)).EntireColumn.Hidden = True
        .Range(.Cells(11, 1), .Cells(.Rows.Count, 1)).EntireRow.Hidden = True
        .ScrollArea = .Cells(1, 1).Resize(10, 2).Address
    End With
End Sub

=ЕСЛИ(A2="";B1;A2)

Activesheet.Range("b1").Select

Private Sub CommandButton1_Click()
Workbooks.Open Filename:="C:\Users\root\Desktop\prom\qa.xlsm"
Workbooks("книга1.xlsm").Sheets("Лист1").Range("A1").Copy Workbooks("qa.xlsm").Sheets("Лист1").Range("b1")
End Sub