Изменение кода для вставки только значения ячейки из активной ячейки
Вот что у меня сейчас есть:
If Sheet6.Range("j8").Value <> 0 Then
Sheet6.Range("j8").Copy Sheet6.Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Sheet6.Range("J8").ClearContents
Но проблема в том, что мне нужно только скопировать значения, а не весь формат (я пробовал с pastespecial xlpastevalues, но добился небольшого успеха).. и другая проблема, которая у меня есть, заключается в том, чтобы этот макрос работал, Я должен нажать на другую ячейку (она не может быть активной).. но мне нужно, чтобы она работала, пока ячейка еще активна.. Пожалуйста, помогите, спасибо