Hi Norbert,

Am Thu, 30 Aug 2018 05:59:56 -0700 (PDT) schrieb Norbert:

E.g.: the active cell is C46. Now I press the button which copies cell AG23:AR23.
The values of AG23:AR23 are to be copied into C46:N46

try:

Private Sub CommandButton1_Click()
Dim varData As Variant

With ActiveCell
varData = Range("AG23:AR23")
.Resize(1, UBound(varData, 2)).Value = varData
End With
End Sub


Regards
Claus B.
--
Windows10
Office 2016