Help please with a simple copy and paste macro

[EagerToLearn]

Hello there,
If some could please help with a simple macro.
I have workbook contains of several sheets.
I want to copy and paste form one sheet to the other.
Based if one column have no value or not, I want to bring that value to the other sheet and other data form the same row as well and past it on the other sheet in certain cells
I have sample file i can send
What is shows is copying form one sheet to create a journal entry to the second sheet.
If there is a value under column B, then take value under column B, C, D, A and past it in ceatain cells on the other sheet.
If there is not value under column B, then preceed with the following row.
Creating this journal entry manully is so much work, I hope someone can direct me on how to wirte this code.
Help is greatly appreciated.

 

[venkat1926]

try a macro like this

Sub test()
Dim r As Range, filt As Range
With Worksheets("sheet1")
Set r = .Range("a1").CurrentRegion
r.AutoFilter Field:=2, Criteria1:="<>"

Set filt = r.Offset(1, 0).Resize(r.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
filt.Copy Worksheets("sheet2").Range("A1")
r.AutoFilter
End With


End Sub

 

[EagerToLearn]

Hello,
Thank you very much for taking the time to help, I will try that today.
Take care.