Update row/columns based on another column's data VBA

[jalolbek85]

Hi All,

I want to transfer all the id numbers from Data Sheet (column B6:B10000) to the Cover Sheet row #5, if the id is not exist in data sheet (row #5), then extend the formulas in C6:C10 until end of the data in row 5
For Example, the id numbers in the Data Sheet is from 1 to 15 so, I want to update my Cover Sheet with another 8 id numbers (8-15), and the expected result would be same like in the ?Expected result? Sheet.

I have attached the file.
Thanks in advance

[Marc L]

According to your attachment and to the Macro Recorder an Excel basics VBA demonstration as a beginner starter :

Sub Demo1() 
    Dim L& 
        L = [Data!B5].End(xlDown) 
    With [Cover!C5].CurrentRegion.Columns 
        If .Cells(.Count) < L Then .Item(.Count).AutoFill .Item(.Count).Resize(, L - .Count + 1) 
    End With 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

[jalolbek85]

it's working as expected, thank you Marc L

[jalolbek85]

Hi Marc L,

Can you please help with the attached sample, the VBA is not working after adding some columns and data in row #4.

Thank you in advance.

[Marc L]

As the expected result has not the same layout than the Cover worksheet so do you want

1. the expected result in another worksheet ?
   
   
2. Delete the Cover worksheet columns C to K and clear row #4 ?
   
   
3. Attach a better workbook well reflecting your need !