Open and format other workbook

[Rahulwork]

Hello Everyone

I need your help to create a code for below action

- Open workbook path mentioned in A1
D:\abc.xlsx
- add four column in starting
- Give heading to four column as A, B, C and D
- in A4, concatenate F4 and G4.. and drag till the last row. .

Same.and close workbook.

Pls help

 

[mrshl9898]

Like this?

Sub dothestuff()

Dim sht As Worksheet
Dim LastRow As Long

Workbooks.Open "D:\abc.xlsx"

Set ws = ActiveSheet

ws.Columns("A:D").Insert
ws.Range("A1") = "A" ''etc
LastRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row

r = 4
For r = 4 To LastRow
    ws.Cells(r, 1) = ws.Cells(r, 6) & ws.Cells(r, 7)
Next r

End Sub