Excel VBA: вставить только значение по адресу из поля ввода без потери старого формата в диапазоне назначения

Question

Я хочу скопировать из диапазона и вставить значение только в целевой диапазон, выбранный с помощью поля ввода. В основном это работает, но старый формат диапазона назначения теряется [3-й и 4-й ряд отличаются от 1-го ряда в прикрепленной ссылке на рисунке ниже].

То, что я хочу, это старый формат не теряется после вставки данных из скопированного диапазона. Что-то не так?

Я использую xlPasteValues и вот код:

Sub Ttdn_kc_154()

Dim targetRange As Range

Sheets("ps").Select
If ActiveSheet.AutoFilterMode Then
    ActiveSheet.AutoFilterMode = False
End If
Sheets("httk").Select
If ActiveSheet.AutoFilterMode Then
    ActiveSheet.AutoFilterMode = False
End If

ActiveSheet.Range("httk_kcKQKD_filter").AutoFilter Field:=1, Criteria1:="1"
ActiveSheet.Range("httk_kcKQKD_filter").AutoFilter Field:=12, Criteria1:="<>0"
If ActiveSheet.Range("httk_lockc1542ps").Value > 0 Then
Range("httk_kcKQKD_datakc").Copy
Set targetRange = Application.InputBox(prompt:="Please input or select a range", Type:=8)
targetRange.PasteSpecial Paste:=xlPasteValues
   [the 3rd and 4th row in attached picture link][1]

Application.CutCopyMode = False

End If