Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.OnKey "^c", "macros1"
End Sub

Sub macros1()
    If TypeName(Selection) = "Range" Then
        If Application.CommandBars("Standard").Controls("Копировать").Enabled Then
            Selection.Interior.Color = RGB(255, 0, 0) 
        End If
    End If
End Sub

Sub ClearList()
Dim sh, rg
Dim arrSh(), arrRg()
arrSh = Array("PAID", "NOT PAID", "DEACTIV", "PAYME")
arrRg = Array("A", "B", "C", "D")
For Each sh In arrSh
For Each rg In arrRg
Sheets(sh).Range(rg & "7").Select

Next rg, sh
'Next sh

End Sub

Sub ClearList()
Sheets("REPORT").Select
Dim sh, sh1, sh2, sh3, sh4 As String
Dim n, nn As Long

    sh1 = "PAID"
    sh2 = "NOT PAID"
    sh3 = "DEACTIV"
    sh4 = "PAYME"
  
    
nn = 4
For n = 1 To nn

sh = "sh" & n
Sheets(sh).Range("A:A").EntireRow.Delete

Next n

End Sub

Range("C22") = "=MIN(TABLPAYM" & _
"[Time])"