By: Lutfor Rahman Shimanto

In reply to Lea.

Hello Lea, thanks for reaching out. Here’s a solution for your query.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False

' Check if the changed range is in Sheet1 A1:A67
If Not Intersect(Target, Sheets("Sheet1").Range("A1:A67")) Is Nothing Then
' Update data in Sheet2 A26:A85
Sheets("Sheet2").Range("A26:A85").Value = Sheets("Sheet1").Range("A1:A67").Value

' Copy formatting from Sheet1 A1:A67 to Sheet2 A26:A85
Sheets("Sheet1").Range("A1:A67").Copy
Sheets("Sheet2").Range("A26:A85").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End If

Application.EnableEvents = True
On Error GoTo 0
End Sub

Procedure:

1. Right click on the Sheet1 tab of your workbook and select View Code.

2. Paste the code and save the workbook.

3. Now, if you do any formatting and insert a value in the range of A1:A67 of Sheet1, you can see the values and formatting get copied in the Sheet2.

Regards
Meraz Al Nahian
ExcelDemy