For Each c In Sheets(ShtM).Range("BR7:BR38")
If c.Value > 0 Then
c.Offset(columnOffset:=-68).Copy
Sheets(ShtA).Activate
Sheets(ShtA).Range("B18").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False
End If
Next c
ActiveWindow.SelectedSheets.PrintPreview 'PrintOut Copies:=1
End