Need help for coding in excel with VBA macros, multiple dynamic ranges and offsets

hi, first i want to apologize for my bad english.

i Need help for coding a VBA macros with multiple dynamic ranges and offsets.

Here is the file link for exemple in attachements.



thx for help and time.

(How to) Upload a Workbook directly to the Forum
(please do not post pictures or links to worksheets)

• Click Advanced next to Quick Post button at the bottom right of the editor box.
• Scroll down until you see "Manage Attachments",
• Click the "Choose" button at the upper left (upload from your computer).
• Select your file, click "open", click "upload"
• Once the upload is completed the file name will appear below the input boxes in this window.
• Close the Attachment Manager window.
• Click "Submit Reply"

Note: Please do not attach password protected workbooks/worksheets
Ensure to disable any Workbook Open/Autorun macros before attaching!

here's a simplified example with color for what i want to do with vba.

i have the first and principal range with data , A to G (7 column), a second range from I to O (7 column) , third from Q to W (7 column)...

i use this macro to find duplicate and cut destination .

lastCol = rngData.Columns.Count
lastRow = rngData.Rows.Count
For I = lastRow To 1 Step -1
For J = lastCol To 1 Step -1
Set ACell = rngData.Cells(I, J)
For Each Cell In rngData
If Cell <> Empty And _
Cell.Value = ACell.Value And _
Cell.Address <> ACell.Address Then
Cell.ClearContents "clear duplicated cells in the first row"
Acell.cut destination:= Acell.offset(0,8)" move duplicated cells in the last row "
n = n + 1
End If
Next Cell
Next J
Next I

after that i have now two ranges with data , first range (A to G ) and second range from (I to O)."sheet T1"

now in sheet T2 i have duplicated value.

what i want is instead of Acell.cut destination:= Acell.offset(0,8) become Acell.cut destination:= Acell.offset(0,16) "sheet T3"

only if the duplicated value are found in the second range and so on for the third range ...
Acell.offset(0,8) become Acell.offset(0,16) become Acell.offset(0,32)...