Try this in the Sheet module (right-click sheet-tab, view code)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errH
If Not Intersect(Range("A2:A65536"), Target(1)) Is Nothing Then
Application.EnableEvents = False

With Target(1)
.Offset(-1, 1).Copy
.Offset(0, 1).PasteSpecial Paste:=xlFormats
.Select
End With

End If
errH:
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub

Regards,
Peter T

"Mikus" wrote in message
...
How do i copy cell's formating in column B from column B 1 row above if
any
value is entered into same row's cell in column A

For example if i enter any value in cell A7 then formating (including
conditional formating) of Cell B6 should be copied to cell B7