Vba copy and print

Hi all Can someone hepl me with this one  I have this      Sub CheckIfCellContainsValue() Sheet4.Unprotect Password:="245" Dim index As Integer, NumberOfRows As Integer, ActualCellValue As Var...