I am having problem with this VBA. It won't paste to a merged cell. Can anyone try to solve this, please?
Code
FindRow = Range("A:M").Find(What:=FindCity, LookIn:=xlValues).Row
FindCol = Range("A:M").Find(What:=FindCity, LookIn:=xlValues).Column
'Range(Cells(FindRow - 1, FindCol - 1), Cells(FindRow + 5, FindCol + 1)).Select
'Application.CutCopyMode = False
Range(Cells(FindRow - 1, FindCol), Cells(FindRow + 5, FindCol + 1)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Updated Labels").Select
Range(Cells(PasteRow, PasteCol), Cells(PasteRow + 6, PasteCol + 1)).Select
< [COLOR=#FF0000]ActiveSheet.Paste>[/COLOR]
'set the next row and col
If PasteCol = 11 Or PasteCol = 26 Or PasteCol = 41 Then
If PasteRow = 90 Then
PasteRow = 2
PasteCol = PasteCol + 5
Else
PasteRow = PasteRow + 8
PasteCol = PasteCol - 10
End If
Else
PasteCol = PasteCol + 5
End If
'go back to sheet 1
Sheets("Enter Cities").Select
'increment active cell
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Updated Labels").Select
End Sub