Snasui Excel Forum

Code: Select all

Sub CopyToMergedCell()
  Dim sourceRange As Range, TagetRange As Range
  Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A45")
  Set TagetRange = ThisWorkbook.Sheets("Sheet2").Range("B1:B45")
  sourceRange.Copy
  TagetRange.PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
End Sub

Code: Select all

Sub CopyToMergedCell()
  Dim sourceRange As Range, TagetRange As Range
  Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A45")
  Set TagetRange = ThisWorkbook.Sheets("Sheet2").Range("B1:B45")
  sourceRange.Copy
  TagetRange.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
End Sub